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PREFACE 


\ 

n 

This  thesis  reports  on  the  development  of  an  AFIT/ADP 
System  Network  Model.  This  system  model  consists  of  a 
workload  and  a  network  model.  User's  guides,  maintenance 
guides,  data  dictionaries,  and  code  listings  are  provided 
for  each  model  in  the  appendices.  After  the  system  model  is 
implemented  it  will  be  a  powerful  tool  which  ADP  managers 
may  use  to  manage  the  increasingly  complex  data  processing 
system.  The  last  chapter  of  this  report  outlines  a 
progression  of  follow  on  efforts  required  to  accomplish  the 
implementation  of  this  development.  ,  . 
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Chapter  1 
INTRODUCTION 

Data  processing  management  is  faced  with  more  complex 
data  processing  configurations  and  with  what  configurations 
will  be  required  in  the  future.  As  new  devices  become 
available,  rapidly  changing  technologies  coupled  with 
different  ratios  of  cost  to  performance  are  forcing  manage¬ 
ment  to  review  constantly  the  worth  of  their  installed  base 
of  devices.  Better  management  of  resources  can  mean 
expenditures  or  savings  of  hundreds  of  thousands  of  dollars. 
Thus,  decisions  regarding  the  purchase  of  additional  hard¬ 
ware  will  be  under  close  scrutiny  {Ref  10:52). 

These  decisions  are  not  restricted  to  commercial  compa¬ 
nies  but  also  must  oe  dealt  with  by  educational  institutions 
such  as  the  Air  Force  Institute  of  Technology  (AFIT).  In 
fact  at  an  educational  setting  these  decisions  may  even  be 
more  complex  because  of  the  varied  requirements  placed  upon 
network  resources.  Many  different  compilers  and  application 
programs  are  required  to  teach  and  perform  research.  Often 
these  programs  are  restricted  to  one  type  or  size  computer. 
Additionally,  the  number  of  users  is  usually  quite  large  and 
dispersed  across  many  buildings. 

AFIT  is  currently  going  through  an  evaluation  of  the 
network.  All  of  the  schools  and  departments  of  AFIT  have 
submitted  a  requirements/desire  report  to  AFIT  A  CD.  Using 
these  reports  ACD  must  evaluate  many  different  hardware  con¬ 
figurations  (all  within  a  specified  budget)  in  order  to 
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satisfy  the  majority  if  not  all  of  these  requirements. 
Coupled  with  these  decisions  is  the  uncertainty  of  the 
actual  requirements  after  the  acquisition  of  the  hardware. 
No  analytical  tools  currently  exist  to  help  ACD  with  this 
task.  A  network  system  model  would  assist  ACD  with  these 
decisions.  They  then  would  be  able  to  easily  evaluate 
different  hardware  configurations  with  varied  projected 
requirements . 

The  AFIT  computer  network  consists  of  various  computers 
and  input/output  devices  interconnected  through  a  GANDALF 
Private  Automatic  Communications  Exchange  (PACX)  digital 
communication  switch.  (Figure  1.1).  AFIT  controlled 
resources  are  distributed  between  three  physical  locations 
while  the  CYBER  and  CREATE  computers  are  located  outside  of 
AFIT.  Every  AFIT  terminal  connected  to  the  PACX  system  can 
communicate  with  any  of  these  computers.  Dial-up  capability 
to  all  computer  resources  is  supported  from  both  within  AFIT 
and  off  facility. 

AFIT's  network  began  with  only  the  CYBER  computer  with 
few  terminals  and  remote  batch  locations.  As  each  resource 
was  added  to  the  network,  immediate  saturation  problems  were 
elevated.  However,  in  a  short  period  of  time  the  new 
resources  also  became  saturated. 

Future  plans  for  this  network  include  the  addition  of 
other  computers,  terminals,  and  software.  As  new  resources 
are  added,  requirements  on  the  old  resources  may  shift  to 
the  new  resources  again  relieving  the  saturation  problem. 
However,  at  the  same  time  new  demands  may  be  place  upon  the 


network.  AFIT  Automated  Data  Processing  (ADP)  managers  are 
constantly  trying  to  forecast  the  demands  and  acquire  the 
additional  resources  to  satisfy  them. 

The  tools  available  to  the  ADP  manager  are  judgement, 
intuition,  experience,  and  analytical  analysis  of  segments 
of  the  network  system.  The  networks,  however,  have  grown 
quite  large  and  complex  with  many  interrelationships  between 
components  of  the  system.  The  dynamics  and  interactions 
present  such  a  complexity  that  it  is  impossible  to  model 
what  is  not  understood.  However,  a  simulation  model  is  an 
attempt  to  gain  a  better  understanding  of  the  overall  net¬ 
work  system.  A  dynamic  simulation  model  would  provide  ADP 
managers  with  a  tool  to  use  in  addition  to  their  intuition 
and  experience  in  managing  complex  data  processing  systems. 

Problem  Statement 

A  dynamic  model  of  the  AFIT  ADP  network  does  not  exist. 
A  dynamic  simulation  model  incorporating  a  hardware  system 
structure  with  a  characterization  of  the  workload  will 
enable  ADP  managers  to  study  the  effects  and  requirements  of 
the  continuously  changing  environment. 

Research  Question 

What  is  the  entire  workload  and  network  resources 
available  to  AFIT,  how  can  the  workload  and  resources  be 
captured  in  a  dynamic  simulation  model,  and  how  can  the 
model  be  used  to  evaluate  policies,  requirements,  and  added 
resources?  Specifically: 


1)  What  portion  of  the  workload  generated  by  AFIT 
utilizes  network  resources  and  how  can  this  workload  be 


translated  into  a  dynamic  workload  model? 

2)  How  can  the  network  resources  with  their  complex 
relationships  be  incorporated  into  a  model  that  will  enable 
ADP  managers  to  evaluate  the  system  given  different  hardware 
configurations  and  requirements? 

Objectives 

The  primary  objective  of  this  research  is  to  provide  an 
initial  validated  dynamic  system  model  of  the  AFIT  ADP 
network.  A  dynamic  model  will  enable  ADP  managers  to  study 
effects  of  policy  changes/  increased  requirements  (external 
changes),  and  enhancements  to  the  system.  Intermediate 
objectives  are: 

1)  Develop  independent  workload  and  network  models 
which  when  combined  will  form  the  system  model. 

2)  Verify  and  validate  all  three  models. 

3)  Provide  guidance  on  how  to  use  and  alter  all  three 
models. 

Scope 

This  research  is  directed  at  determining  the  portion  of 
the  AFIT  ADP  workload  which  uses  AFIT  ADP  network  resources. 
Specifically,  the  system  model  will  determine  turnaround 
times,  response  times,  and  utilizations  of  each  ADP  resource 
connected  (CPUs,  terminals,  printers).  A  completed  model  of 
the  real  system  must  neither  over  simplify  to  the  point 
where  the  model  becomes  trivial  nor  carry  so  much  detail 


that  the  model  becomes  clumsy  and  prohibitively  expensive  to 


operate  (Ref  21:39).  Emphasis  will  be  placed  on  the 
predictive  purpose  of  a  system  model. 

Background  and  Current  Resources 

Prior  to  1981,  AFIT  relied  on  its  two  major  host 
organizations,  the  Air  Force  Logistics  Command  (AFLC)  and 
the  Aeronautical  Systems  Division  (ASD)  of  the  Air  Force 
Systems  Command  for  general  purpose  data  processing  support. 
However,  the  technological  advances  of  the  late  1970's  and 
early  1980's,  coupled  with  an  increased  demand  for  computa¬ 
tional  resources,  forced  AFIT  to  seek  and  develop  internal 
data  processing  capabilities. 

In  1981,  the  PD P  11/34,  PDP  11/60,  and  Harris  500  were 
acquired  and  installed.  They  were  almost  immediately 
saturated,  indicating  the  tremendous  demand  for  computing 
resources.  The  VAX  11/780,  acquired  in  October  1982, 
immediately  relieved  the  capacity  saturation  problem  for  the 
above  three  resources.  Since  that  time  the  PDPs  have  been 
taken  off  line  for  enhancements.  The  new  machine  has  also 
quickly  become  saturated. 

Computer  Resources.  Currently  seven  computer  resources 
are  available  on  the  network.  The  CYBER  actually  consists 
of  two  computers  -  a  CYBER  750  and  CYBER  74.  The  CYBER  750 
is  primarily  used  for  time-sharing  (intercom)  support  while 
the  CYBER  74  is  used  for  batch  processing.  The  use  of  these 
CYBER  computers  is  transparent  to  users;  therefore,  the 


HARRIS  500 

HARRIS  80  RBT 

CPU  Memory 

1 

(768  KB) 

CPU  Memory 

1 

(4 

MB) 

Disk  Drives 

2 

(80  MB  each) 

Disk  Drive 

1 

(40 

MB) 

Disk  Drives 

2 

(300  MB  each) 

Tape  Drives 

2 

Tape  Drives 

4 

Card  Reader 

1 

Card  Reader 

1 

Card  Punch 

1 

Card  Punch 

1 

Line  Printer 

1 

Line  Printer 

1 

Pen  Plotter 

1 

Printer /Plotter 

1 

PDP  11/60 

PDP  11/34 

CPU  Memory 

1 

(256  KB) 

CPU  Memory 

1 

(256  KB) 

Disk  Drive 

2 

(28  MB  each) 

Disk  Drive 

1 

(28 

MB) 

Printer /Pi otter 

1 

Tape  Drive 

1 

VAX  11/780 

CPU  Memory 

1 

(4  MB) 

Disk  Drives 

2 

(300  MB  each) 

Tape  Drives 

1 

Printer /Plotter 

1 

Table  1.1  Hardware  Description. 


CYBER  resource  will  be  considered  as  one  resource.  The 
AFLC/ CREATE  system  actually  consists  of  two  Honeywell  H-635 
processors  operating  in  parallel.  These  also  will  be  con¬ 
sidered  as  one  resource. 

AFIT/ACD  operates  the  Harris  500,  PDP  11/34,  PDP  11/60, 
Vax  11/780,  and  the  Harris  80.  Users  to  these  systems 
consist  entirely  of  AFIT  people.  The  PDP  11/34  and  PDP 
11/60,  which  were  obtained  in  1981,  have  virtually  been 
replaced  by  the  VAX  and  are  now  only  used  by  a  few  classes 
and  faculty.  It  is  anticipated  that  these  systems  will  be 
taken  off-line  in  1984;  therefore,  they  were  not  implemented 
in  the  network  model.  The  Harris  80  functions  as  an 
input/output  controller  for  the  CYBER.  Table  1.1  shows  the 
hardware  description  of  each  AFIT  network  resource  while 
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Computer  Computer  ID 


CYBER  C 
CREATE  R 
Harris  500  H 
VAX  11/780  V 


Interactive 


X 

X 

X 

X 


Batch 


X 

X 

X 


#  of  Ports 


10 

16 

28 

38 


Table  1.2  Computer  Identification  for  Model. 


Table  1.2  identifies  the  computers,  interactive/batch 


capabilities  and  number  of  interactive  ports. 


Input  kocatjLons*.  The  three  schools  of  AFIT, 


Engineering,  Logistics,  and  Civil  Engineering  are  located  in 


three  separate  buildings.  Each  school  has  both  interactive 


and  batch  input  locations.  The  interactive  terminals  are 


divided  into  two  categories,  student  and  administrative. 


while  the  batch  locations  are  utilized  by  all  users.  The 


only  exception  is  in  building  125  where  terminals  exist  for 


use  only  by  software  development  personnel.  The  following 


input  locations  were  defined: 


STUD125 

STUD640 

STUD641 

ADMN125 

ADMN640 

ADMN641 

SOFT125 

BTCH125 

BTCH640 

BTCH641 


Student  terminals  building  125 
"  "  "  640 

"  "641 

Admin/Faculty  terminals  building  125 
"  "  "  640 

"  "  "  641 

Software  Development  building  125 
Batch  input  building  125 
"  "  640 

"  "  "  641 


The  location's  attributes  and  interrelationships  with  the 


computers  are  shown  in  Table  1.3  The  terminal  input  loca¬ 


tions  may  access  all  of  the  computer  resources.  The  batch 


input  locations  may  access  only  a  few  of  the  computer 
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Input 

Terminals 

Computer 

Hours  of 

Location 

Available 

Resource (s) 

Operation 

STUD125 

5 

ALL 

0800-1600  Mon-Fri 

STUD640 

44 

ALL 

24  hrs  daily 

STUD641 

14 

ALL 

24  hrs  daily 

FAAD125 

1 

ALL 

24  hrs  daily 

FAAD640 

5 

ALL 

24  hrs  daily 

FAAD641 

6 

ALL 

24  hrs  daily 

SOFT125 

6 

ALL 

24  hrs  daily 

BTCH125 

- 

R ,  H 

0800-1600  Mon-Fri 

BTCH640 

- 

C 

24  hrs  daily 

BTCH641 

- 

R,H 

24  hrs  daily 

Table  1.3  Network  Input  Locations. 


resources.  Dial-up  was  not  considered  as  a  separate  input 
ocation.  Each  dial-up  user  is  considered  to  be  an  arrival 
at  one  of  the  above  locations  (which  the  user  would  be  if 
dial-up  did  not  exist). 

Output  locations.  Besides  the  terminals,  seven  hard¬ 
copy  devices  are  available  to  the  AFIT  user.  Some  of  these 
devices  are  restrained  to  one  computer  while  others  can  be 
switched  between  computers.  The  Harris  80  print  devices 
accept  output  only  from  the  CYBER.  The  VAX  11/780  has  one 
hard  copy  device.  The  Remote  Batch  Stations  in  buildings 
125  and  641  can  either  accept  output  from  the  Harris  500  or 
the  CREATE.  The  Harris  500  line  printer  accepts  output  only 
from  itself.  These  interrelationships  are  shown  in  Table 


1.4. 


Methodology 


The  methodology  applied  in  the  research,  is  as  Shannon 


Computer 

Printer  Resource (s) 

RBT125  Line  Printer  R,H 

RBT641  Line  Printer  R,H 

Har  80  Pen/Plotter  C 

Har  80  Line  Printer  C 

Har  80  Print/Plotter  C 

VAX  Printer  Plotter  V 

Har  500  Line  Printer  H 


Building 

Location 

125 

641 

640 

640 

640 

640 

641 


Hours  of  I 

Operation 
0800-1600  Mon-Fri 
24  hrs  daily 
0730-2400  Mon-Fri 
0730-1600  Sat 
1200-2000  Sun 

0730-1800  Mon-Fri 


Table  1.4  Network  Printers. 


intuitive  art  in  which  any  set  of  rules  for  development  of 
models  can  have  limited  usefulness  at  best  and  can  only 
serve  as  a  suggested  framework  or  approach.  However,  we  can 
use  the  experiences,  judgement,  and  techniques  employed  by 
others . 

Borovits  and  Neumann  structure  a  simulation  computer 
system  model  as  three  components.  First,  a  workload  model 
which  is  described  in  terms  of  job  mix,  rate  of  job  arrival, 
and  so  forth.  Next,  a  hardware  model  which  defines  the 
system  components  and  their  interrelations;  the  behavior  of 
each  component  to  different  demands;  and  the  decision  rules 
for  each  component.  Lastly,  the  simulation  model  incorpor¬ 
ates  the  workload  model  and  hardware  model  and  quantifies 
the  performance  indexes  (Ref  6:28).  For  this  research,  the 
three  components  Borovits  described  will  be  the  workload 
model,  network  model,  and  system  model  respectfully. 

No  specific  research  found  resembled  the  hardware  con¬ 


figuration  and  complexity  of  the  AFIT  network.  Basically, 
three  areas  were  reviewed  in  order  to  employ  the 
experiences,  judgement,  and  techniques  used  by  others.  A 
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Figure  1.3  Open  chain  (batch  load)  (Ref  8:288). 

review  of  analytical  and  simulation  models  is  provided 
followed  by  a  more  comprehensive  review  of  workload  models. 

Analytical  Queueing  Models.  An  analytical  model  is  a 
set  of  equations  that  may  describe  the  performance  of  a 
computer  system.  It  is  based  on  the  fundamental  mechanism 
in  queueing  theory  as  illustrated  in  Figure  1.2.  It  is  not 
the  purpose  of  this  research  to  go  into  an  in-depth  coverage 
of  queueing  theory  but  Allen  provides  an  excellent  overview 
of  queueing  theory  followed  by  applications  to  computer 
systems  (Ref  3). 
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Figure  1.4  Closed  Chain  (terminal  load)  (Ref  8:288). 
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analytical  queueing  models  (Ref  8:288).  Figure  1.3  illu¬ 
strates  a  computer  system  with  an  open  chain  representing  a 
batch  load.  Figure  1.4  illustrates  a  computer  system  with  a 
closed  chain  representing  the  terminal  load.  These  systems 
can  be  combined  to  form  a  central  server  model  with  terminal 
and  batch  loads  as  shown  in  Figure  1.5.  All  of  AFIT's 
computer  resources  can  be  represented  by  Chandy’s  and 
Sauer's  combined  terminal  and  batch  load  model.  The  VAX 
11/780  does  not  have  a  card  reader  attached  but  interactive 
jobs  may  be  entered  in  a  batch  mode.  This  is  discussed  in 
Chapter  Three. 

In  a  special  issue  on  analytical  queueing  models  in  ACM 
Computing  Surveys ,  Graham  summarizes  some  of  the  basic 
reasons  queueing  network  models  have  become  so  popular: 

1)  These  models  capture  the  most  important  features 
of  actual  systems,  e.g.  many  independent  devices 
with  queues  and  jobs  moving  form  one  device  to 
the  next.  Experience  shows  that  performance 
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Figure  1.5  Central  Server  Model  with  Terminal  and  Batch 
Loads  (Ref  8:289). 


measures  are  much  more  sensitive  to  parameters 
such  as  mean  service  time  per  job  at  a  device, 
than  to  many  of  the  details  of  policies  and 
mechanisms  throughput  the  operating  system 
(which  are  difficult  to  represent  concisely). 

2)  The  assumptions  of  the  analysis  are  realistic. 
General  service  time  distributions  can  be 
handled  at  many  devices;  load  dependent  devices 
can  be  modeled;  multiple  classes  of  jobs  can  be 
accommodated . 

3)  The  algorithms  that  solve  the  equations  of  the 
model  are  available  as  highly  efficient  queueing 
network  evaluation  packages.  (Ref  12:220) 

In  another  special  issue  on  analytical  queueing  models 
in  Computer,  Spragins  continues: 

Another  very  important  reason  for  the  in¬ 
creasing  popularity  of  these  models  is  simple: 
they  work.  In  fact,  they  have  been  found  to  be 
surprisingly  successful  in  estimating  such  per¬ 
formance  metrics  as  throughputs,  mean  queue 
lengths,  and  mean  response  times  for  real 
systems.  The  ama2ing  thing  is  that  they  have 
been  successful  despite  the  fact  that  a  number 
of  the  most  common  assumptions,  such  as  time 
invariant  parameters,  steady  state  operations, 
and  Markovian  -  or  similar  -  behavior,  are  often 
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seriously  violated  by  real  systems.  That 
relatively  simple  models  based  on  demonstrably 
false  assumptions  still  give  good  results  is 
encouraging  to  the  practitioner  but  puzzling  to 
the  analyst.  (Ref  22:9) 

Simulation  Models.  Computer  simulation  models  are 
employed  whenever  a  system  is  at  least  partially  known  but 
it  is  too  complex  to  handle  by  means  of  an  analytical  model 
(Ref  6:26,  Ref  16:138).  The  models  are  still  formulated 
using  queueing  theory  as  described  earlier,  however  an 
analytical  model  becomes  computationaly  unwieldy  and  many 
times  requires  simplifying  assumptions.  Analytical  models 
also  require  more  knowledge  of  the  system  than  may  be 
available. 

Simulation  models  may  apply  to  entire  systems  or  sub¬ 
systems  and  components  at  any  level  of  detail.  Computer 
systems  are  usually  modeled  as  discrete  systems  which  are 
characterized  by  discrete  states  and  by  state  transitions 
(events)  occurring  at  discrete  time  instants  (Ref  11:102). 
A  simulation  moves  the  system  through  time  and  mimics  the 
myriad  events  that  occur  in  the  real  world. 

Computer  simulation  models  are  often  used  in  a  computer 
performance  evaluation  effort  (Ref  6,11,15,16).  Commercial 
simulation  program  packages  or  'in-house'  simulations  may  be 
used.  Commercial  simulation  packages  are  useful  in  solving 
routine  problems  such  as  configuration  selection  where  a 
high  level  of  detail  is  not  involved.  The  configuration  in 
most  cases  is  limited  to  a  single  computer  and  its 
peripherals  which  may  be  added.  Usually,  simulations  of 
complex  configurations  are  not  highly  reliable. 
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Additionally,  a  user  is  not  always  aware  of  the  details, 
approximations,  and  simplifications  built  into  ready  made 
packages.  In-house  simulation  models  of  complex  systems  are 
usually  more  reliable  and  understandable.  The  in-house 
model  will  also  be  more  efficient  since  it  embodies  only  the 
components  and  functions  relevant  to  the  user.  Of  course, 
in-house  simulations  are  usually  more  costly  to  operate  (Ref 
6:33-34) . 

Usually,  most  computer  simulation  modeling  efforts  are 
directed  towards  specific  computer  systems.  Nguyen  et  all 
describes  a  detailed  simulator  which  predicts  the  effects  of 
change  in  IBM  3790  and  8100  distributed  processing  systems 
and  teleprocessing  networks  (Ref  18:81).  This  simulator, 
unformally  called  FIVE,  relies  heavily  upon  IBM  developed 
monitoring  aids  to  drive  the  simulation.  Markowitz  outlines 
a  IBM  370  simulator  written  in  SIMCRIPT  II  which  was 
designed  to  model  the  virtual  memory  of  the  IBM  370  series 
(Ref  15:342). 

None  of  the  network  simulation  efforts  viewed  resembled 
the  AFIT  network.  The  efforts  viewed  either  simulated 
specific  systems  or  if  simulated  networks,  the  access 
protocols,  channel  messages  throughput,  and  delays  were 
simulated  (Ref  9:123).  Because  the  AFIT  network  consists  of 
four  different  vendor's  computers,  specific  system 
simulations  can  not  be  utilized.  The  prediction  of  network 
protocols,  channel  messages  throughput,  and  delays  is  not  an 
objective  of  this  research. 
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Workload  Models.  Generally,  workload  models  serve  four 
purposes.  A  representative  workload  is  provided  for  compar¬ 
ative  performance  evaluation  of  different  systems.  For 
experimental  performance  optimization  studies,  they  provide 
a  controllable  reproducible  environment.  A  workload  model 
may  also  reduce  the  quantity  of  data  that  has  to  be 
analyzed.  Finally,  they  present  the  system  workload  in  a 
form  required  by  a  system  model  (Ref  23:52). 

For  this  research,  the  primary  purpose  of  the  workload 
model  is  to  drive  the  network  model.  A  computer  system  (in 
this  case  network)  may  be  treated  as  a  passive  device  which 
carries  out  data  processing  tasks  in  response  to  requests 
made  by  its  users  (Ref  2:19).  Since  each  computer  system 
(network)  consists  of  a  number  of  hardware  and  software 
resources,  a  user  request  requires  a  certain  amount  of  these 
resources  in  order  to  be  satisfied. 

Workload  has  traditionally  been  defined  in  terms  of  a 
set  of  job  parameters  representing  resource  demands  such  as 
CPU  time,  I/O  time  and  central  memory  (Ref  23:10).  Defining 
these  terms  for  a  model  has  become  known  as  the  workload 
characterization  problem.  Many  times  this  characterization 
becomes  the  hardest  technical  problem  to  solve  (Ref  11:221). 
Characterizing  a  workload  for  evaluation  purposes  requires 
determining  which  of  the  many  parameters  have  an  influence 
on  the  system's  performance. 


Agrawala  (Ref  2:19)  characterized  the  workload  by 
defining  a  user  request  R  into  a  vector  X  where  the 
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Figure  1.6  Spectrum  of  Computing  System  Modeling 
Techniques  (Ref  3:13). 


components  of  X  represent  the  amount  of  service  requested 
from  the  resources  to  service  the  requests.  For  example, 
X(l)  may  be  the  number  of  memory  blocks  and  X(2)  the  CPU 
time  required. 

Agrawala  further  defines  the  request  with  other  charac¬ 
teristics.  It  is  also  made  up  of  a  time  instant  T  and  from 
a  location  L.  T  may  be  the  user  arrival  or  job  arrival.  L 
would  be  the  input  location.  It  also  may  have  a  flag  F 
associated  with  it  which  indicates  whether  it  is  a  time 
sharing,  a  batch,  or  a  real-time  processing  request. 
Therefore,  any  user  request  may  be  characterized  by  the 
quadruple  (T,L,X,F)  which  may  be  considered  to  be  a  multi¬ 
variate  point  process  over  time  and  space  (Ref  2:19). 


Applied  Methodology.  This  section  provides  a  general 
description  of  how  modeling  methodology  was  applied  in  this 
research.  Figure  1.6  illustrates  the  spectrum  of  computer 
system  modeling  techniques.  The  expense  in  time  and  effort 
runs  from  the  least,  rules  of  thumb,  to  the  costliest, 
benchmarking.  Rules  of  thumb  are  based  on  the  experiences 


of  managers.  It  works  well  for  short  periods  (initial 
computer  acquisition),  but  it  declines  in  value  over  time 
and  is  not  much  help  in  predicting  hardware  and  software 
upgrading  requirements  (Ref  3:13,  Ref  10:19).  Linear  pro¬ 
jection  can  be  a  helpful  planning  tool  but  the  major  problem 
is  that  this  approach  uses  linear  projection  for  a  system 
that  is  inherently  nonlinear.  Analytical  queueing  models 
have  been  shown  to  work  well  (previous  section)  provided 
that  the  interaction  of  hardware  performance  factors  and 
software  are  understood.  Simulation  models  are  used  when 
equations  are  insoluble  or  when  it  is  not  obvious  what  the 
equations  are.  The  system  can  be  modeled  at  much  greater 
detail  than  is  practical  in  queueing  theory  models.  Lastly, 
benchmarks  involve  taking  an  entire  workload  or  a  partial 
workload  from  one  CPU  and  putting  it  on  another.  The 
results  are  usually  more  precise  and  real  than  the  other 
methods  but  it  is  time  consuming  and  a  nuisance  (Ref  10:81). 

For  this  research  the  above  techniques  except  bench¬ 
marking  are  combined.  The  methodology  becomes  a  hybrid 
simulation  that  uses  analytical  models  to  replace  subsystems 
in  the  simulation  of  the  entire  system,  thereby  simplifying 
the  overall  simulation  (Ref  12:220).  For  example,  within  a 
computer,  the  I/O  system  may  be  considered  a  subsystem  and 
its  performance  quantities  are  calculated  from  an  analytical 
model.  Thus,  the  simulation  does  not  need  to  be  concerned 
with  the  low  level  detail  of  the  I/O  subsystem.  Linear 
projection  may  be  used  in  some  cases  where  a  better  solution 
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is  not  available  or  a  complete  understanding  does  not  exist. 

Shannon  distinguished  eleven  stages  that  may  be  used  to 
investigate  the  properties  of  a  real  system  as  follows: 

1.  System  Def inition--Determining  the  boundaries, 
restrictions  and  measure  of  effectiveness  to  be 
used  in  defining  the  system  to  be  studied. 

2.  Model  Formulation — Reduction  or  abstraction  of 
the  real  system  to  a  logic  flow  diagram. 

3.  Data  Preparation--Identif ication  of  the  data 
needed  by  the  model,  and  their  reduction  to  an 
appropriate  form. 

4.  Model  Translation — Description  of  the  model  in 
a  language  acceptable  to  the  computer  used. 

5.  Validation  —  Increasing  to  an  acceptable  level 
the  confidence  that  an  inference  drawn  form  the 
model  about  the  real  system  will  be  correct. 

6.  Strategic  Planning — Design  of  an  experiment 
that  will  yield  the  desired  information. 

7.  Tactical  Planning — Determination  of  how  each  of 
the  test  runs  specified  in  the  experimental 
design  is  to  be  executed. 

8.  Experimentation — Execution  of  the  simulation  to 
generate  the  desired  data  and  to  perform  sensi¬ 
tivity  analysis. 

9.  Interpretation--Drawing  inferences  form  the 
data  generated  by  the  simulation. 

10.  I mplementation--Putt ing  the  model  and/or  re¬ 
sults  to  use. 

11.  Documentation — Recording  the  project  activities 
and  results  as  well  as  documenting  the  model 
and  its  use.  (Ref  21:23) 


This  research  will  pursue  stages  1  through  5.  Further 
stages  are  not  possible  because  data  needed  by  the  model 
were  not  available  or  in  appropriate  form  for 
experimentation.  This  will  be  addressed  in  more  detail 
later.  Documentation  of  the  model  and  its  use  were  also 
completed.  This  stage  is  an  on  going  stage  which  should  not 
be  placed  last. 

A  precise  methodology  cannot  be  stated.  Shannon's 
stages  above  may  provide  'an  order  of  attack'  but  the  fact 


remains  that  modeling  can  best  be  described  as  an  intuitive 
art  (Ref  21:19).  As  Shannon  states: 


Thus,  the  art  of  modeling  consists  in  an  ability  to 
analyze  a  problem,  abstract  from  it  its  essential 
features,  select  and  modify  basic  assumptions  that 
characterize  the  system,  and  then  enrich  and 
elaborate  the  model  until  a  useful  approximation 
results.  (Ref  21:20) 

...The  art  of  modeling  can  be  mastered  by  those  who 
possess  the  necessary  skills  of  ingenuity,  insight, 
and  resourcefulness,  as  well  as  an  extensive  ex¬ 
posure  to  systems  and  physical  phenomena  they  are 
trying  to  model.  There  is  no  hard  and  fast  rule 
about  how  the  problem  is  originally  formulated, 
i.e.  how  one  looks  at  it  in  the  first  place.  There 
are  no  magic  formulas  for  deciding  what  should  be 
included  in  the  model  in  the  form  of  variables  and 
parameters,  descriptive  relationships  and  con¬ 
straints,  and  criterion  for  judgement  of 
effectiveness.  Remember  that  nobody  solves  the 
problem;  rather,  everybody  solves  the  model  that  he 
has  constructed  of  the  problem.  This  concept  helps 
to  keep  the  model  and  art  of  modeling  in  the  proper 
perspective.  (Ref  21:21) 


In  summary.  Shannon  provides  a  framework  (11  stages) 
that  a  modeler  may  use  to  develop  a  model.  However,  the 
modeler  must  relay  upon  the  skills  of  ingenuity,  insight, 
and  resourcefulness  to  successfully  complete  a  model. 
During  the  system  definition  and  model  formulation  stages 
the  modeler  must  decide  what  are  the  boundaries  and 
restrictions,  variables,  and  parameters.  The  final  judge¬ 
ment  of  the  model's  worth  will  be  determined  by  the  users. 


Specific  Approach 

Starting  with  Borovits'  and  Neumann's  description  of  a 
computer  simulation  model,  the  entire  system  model  can  be 
broken  into  two  smaller  components  (models)  —  the  workload 
component  and  the  network  component.  Each  of  these 


NETWORK  SYSTEM 


j  WORKLOAD 
REQUIREMENTS 


■  NETWORK 
RESOURCES 


i 

I 


Figure  1.7  Basic  Network  Conceptualization. 


components  can  be  modeled  and  evaluated  individually  before 
combining  them  to  form  the  system  model.  This  section 
provides  the  overall  conceptualization  of  the  AFIT  network 
which  is  divided  into  the  workload  and  network  components. 
The  interface  between  the  components  is  defined  by  modifying 
Agrawala's  vector  to  fit  the  situation  at  AFIT.  Lastly,  a 
simulation  language  used  by  this  research  is  described. 

Basically,  the  network  system  was  seen  as  workload 
requirements  which  cause  users  (arrivals)  to  request  and 
utilize  the  network  resources  as  illustrated  in  Figure  1.7. 
The  dashed  lines  represent  the  constant  feedback  which  may 
influence  the  user  arrivals  and  workload  requirements.  For 
example,  poor  response  time  from  the  network  resources  will 
irritate  the  users  which  then  may  change  the  workload 
requirement.  When  possible  all  distributions  used  by  the 
model  are  tied  to  current  literature.  Basic  subsystems 
(CPUs)  were  modeled  using  analytical  models  or  linear 
projection  when  possible  (an  understanding  exists). 


The  workload  characterization  problem  will  be  handled 
by  modifying  Argrawala's  vector  as  described  in  the  previous 
section.  Agrawala  defined  his  model  as  R=f(T,L,X,F)  where: 


R  =  Request 

T  =  Time  of  the  request 
L  =  Location  of  the  request 
X  =  Resource  vector 
F  =  Timesharing/Batch  Flag 

The  F  flag  may  be  dropped  because  the  timesharing/batch 
option  becomes  a  function  of  location  L.  The  input  loca¬ 
tions  of  the  model  determine  whether  it  is  an  interactive  or 
batch  request.  The  time  of  request  may  be  represented  as  an 
arrival  rate  for  each  input  location  (node)  of  the  network. 
The  network  model  may  then  determine  simulated  arrival  times 
for  each  location  based  upon  this  empirical  arrival  rate. 
O’Neil  and  O'Neil  (Ref  19:11)  found  the  pattern  of  inter¬ 
active  arrivals  best  treated  by  an  empirical  distribution. 

We  are  left  with  the  definition  of  the  vector  X. 
Besides  the  traditional  definition  of  X  which  includes  CPU 
time,  core  memory,  and  so  forth,  it  is  necessary  to  identify 
for  the  network  model  the  computer  resource  required.  With 
CPU  time,  memory  blocks,  and  so  forth  dependent  upon  each 
computer  system  an  attempt  to  describe  the  job  parameters  as 
a  probabilistic  description  would  be  extremely  difficult  to 
manage  (Ref  13). 

Agrawala  and  later  Hartrum  and  Thompson  simplified  the 
description  by  use  of  'cluster  analysis'  (Ref  13).  By  use 
of  cluster  analysis  a  large,  complex  distribution  is  divided 
into  a  number  of  simplier  distributions.  Using  this  tech¬ 
nique  a  workload  can  be  characterized  into  an  empirical 


distribution  of  these  clusters.  Keeping  in  mind  that  the 
model  is  being  developed  for  management  for  prediction 
purposes,  these  can  later  be  identified  by  data  analysis. 
These  clusters  should  have  meaning  to  management  people 
without  a  technical  background.  For  example,  a  type  of  work 
can  be  identified  such  as  basic  language  development  and 
then  within  that  type  the  clusters  can  be  identified.  Using 
this  technique,  the  workload  model  is  independent  of  the 
hardware  performance  in  the  network  model.  After  an  arrival 
at  a  input  node  of  the  network  the  following  resource 
requirements  will  have  to  be  identified  by  the  network 
model : 

1.  Computer  required. 

2.  CPU  time  required. 

3.  I/O  time  required. 

4.  Memory  required. 

5.  Printer  required. 

These  resource  requirements  can  be  determined  by  providing 
an  empirical  frequency  distribution.  The  workload  model  can 
provide  these  resource  requirements  through  a  cumulative 
probability  distribution  by  computer,  job  class,  and  job 
size.  The  computer  should  not  only  include  specific  identi¬ 
fication,  but  also  a  probability  that  'any'  computer  will 
satisfy  the  user  request.  The  job  class  will  identify  the 
'type'  of  work  being  performed  such  as  basic  language 
development  or  simulation.  From  within  these  'type'  of 
classes,  the  job  size  (clusters)  can  be  used  by  the  network 
model  to  determine  CPU  time,  I/O  time,  and  memory  required. 


The  printer  selection  becomes  a  function  of  the  type  work, 
location,  and  computer  selected.  The  network  model  will  be 
able  to  determine  this  from  empirical  data.  Hence,  the 
workload  can  be  broken  up  into  n  computers,  m  classes  and  k 
sizes . 

The  simulation  language  used  in  this  research  is  SLAM 
which  is  an  advanced  FORTRAN  based  language.  It  allows 
simulation  models  to  be  built  with  three  different  world 
views — network,  discrete,  and  continuous  (Ref  20).  It  lends 
itself  very  well  to  Shannon's  discrete  change  simulation  as 
follows: 


1.  The  world  is  viewed  as  a  set  of  entities  that 
may  be  modified  or  qualified  by  their  charac¬ 
teristics,  call  attributes. 

2.  The  entities  interact  with  specific  activities 
of  the  world  consistent  with  certain 
conditions ,  which  determine  the  sequence  of 
interactions. 

3.  These  interactions  are  regarded  as  events  in 
the  system,  which  result  in  changes  to  the 
state  of  the  system.  (Ref  21:108) 


Within  AFIT's  network  'world'  the  user  arrivals  and  computer 
jobs  become  the  entities.  Activities  of  the  world  would 
include  a  user  attempting  to  log  on  or  a  batch  job  entered 
into  a  card  reader.  CPU  arrivals  would  be  an  event. 


Order  of  Presentation 

Discussed  in  chapters  two  through  four  are  the 
implementation  of  the  research  methodology  and  recommenda¬ 
tions  for  future  research. 


Described  in  Chapter  Two,  The  Workload  Model,  are  the 
workload  model  and  interface  to  the  network  model.  The 
users  of  the  network  were  identified  and  categorized.  The 
implementation  of  the  resource  vector  X  as  described  in  this 
chapter  is  described  and  the  arrival  rate  calculations  are 
defined.  Behavioral  and  outside  influences  to  the  workload 
are  discussed.  Lastly,  the  model  is  presented. 

Chapter  Three,  The  Network  Simulation  Model,  describes 
the  network  model,  operation  of  the  model,  and  how  the  model 
reflects  the  AFIT  network.  The  conceptualization  of  the 
network  system  is  presented  followed  by  a  more  detailed  look 
at  the  network  resources.  The  variables  of  the  model  are 
discussed  in  detail. 

Presented  in  Chapter  Four,  Summary,  Recommendations, 
and  Conclusion,  are  the  model  summary  and  recommendations 
for  future  research.  A  capacity  planning  methodology  is 


reviewed . 


Chapter  2 

THE  WORKLOAD  MODEL 


Introduction 

This  chapter  describes  the  AFIT  workload,  the  workload 
model,  model  operation,  and  interfaces  to  the  network  model. 
First,  users  of  the  network  were  identified  and  categorized. 
Next,  the  resource  vector  X  (as  described  in  the  previous 
chapter)  was  defined  and  the  arrival  rate  calculations  were 
determined.  The  behavioral  aspects  and  other  outside  in¬ 
fluences  to  the  workload  were  also  considered  and  some  were 
incorporated  into  the  model.  Finally,  the  workload  model 
was  developed  to  transform  the  identified  workload 
characterization  into  the  form  required  to  drive  the  network 
model . 


The  Users 

The  workload  imposed  at  AFIT,  like  most  universities, 
is  unique  and  not  typical  of  the  commercial  environments 
(Ref  14:304).  Iyengar  and  Chih-Chun  grouped  the  Louisiana 
State  University  network  users  into  the  following  ten  groups 
(Ref  14:306): 


1.  group  0 

2.  group  1 


administrative  related  jobs 

classwork  for  student  users  in  lower  level 


3.  group  2  - 


4.  group  3 

5.  group  4 

6.  group  5 

7.  group  6 

8.  group  7 

9.  group  8 
10.  group  9 


courses 

classwork  for  student  users  in  senior  or 
graduate  level  courses 

testing  and  grading  departments  classwork 
faculty  preparation  of  classwork 
masters  level  research 
doctoral  level  research 

faculty  research  funded  by  the  department 
research  funded  by  a  grant  or  contract 
governmental  agencies  or  commercial  application 
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A 

A-l 
A-2 
A-3 
A-4 
A-5 
A-6 
A- 7 
A-8 


Academic/Educational  Support 
Student  Course  Work 
Classroom  Exercises 
Library  Services 
Laboratory  Support 

Special  Laboratory/Department  Support 
Teaching  Support 
Test  Preparation  and  Grading 
Course/Class  Critiques 


B  Research  and  Professional  Development 

B-l  Student  Thesis  Research 

B-2  Sponsored  Faculty  Research 

B-3  Internal  Faculty  Research 


C  Registrar  Support 

C-l  Student  Selection  and  Admissions 

C-2  Registration  and  Scheduling 

C-3  Educational  Plans  and  Transcripts 

C-4  Professional  Continuing  Education 


D  Civilian  Institution  Support 

D-l  Student  Information/Education  Plans 

D-2  Special  Programs 

D-3  Budgeting  and  Accounting 


E 

E-l 

E-2 

E-3 

E-4 

E-5 


Management  and  Administration 
Budgeting  and  Accounting 
Plans  and  Programs 
Personnel  Records/Data 
Recurring  Reports 
Special  Reports 


Table  2.1  ACD  Functional  Support  Categories  (Ref  4:4). 


AFIT  ACD  defines  and  classifies  its  support  into  5  functional 
categories  (Ref  4:4)  as  shown  in  Table  2.1. 


Both  Iyengar/Chih-Chun  and  ACD's  categories  can  be 
combined  and  re-grouped.  Basically  these  categorizations 
support  four  types  of  users--students ,  faculty,  admini- 


stration,  and  software  support  and  development.  The  demands 
placed  by  students  are  course  work,  word  processing,  and 
thesis  work.  The  faculty's  demands  are  administrative  (word 


processing,  classroom  preparation)  and  research.  The 
administrative  demands  can  be  divided  into  daily 
requirements  (word  processing),  weekly  requirements  (weekly 
reports),  and  periodic  requirement  (scheduling).  Finally, 
at  AFIT  a  software  development  shop  exists.  These  cate¬ 
gories  are  summarized  below. 


1 .  Student 

-  Student  course  work 

-  Student  word  processing 

-  Student  thesis  work 

2.  Faculty 

-  Faculty  course  preparation 

-  Faculty  research 

-  Faculty  word  processing 

3.  Administration 

-  Daily  requirements 

-  Weekly  requirements 

-  Periodic  requirements 

4.  Software  Development 


From  these  categories  the  input  files  to  the  model  can  be 
defined  as  discussed  later. 


Resource  Vector  X 

Each  user  has  his  choice  of  up  to  four  different 
computers  and,  depending  on  the  computer  selected,  up  to 
three  different  hard  copy  output  devices.  The  user  may  use 
direct  connect  terminals  at  AFIT  locations,  dialup  terminals 
available  for  checkout,  or  personally  owned  terminals/ 
computers.  Batch  may  be  utilized  on  all  computers  except  the 


VAX  11/780.  Therefore,  for  each  user/requirement,  whether 


it  be  interactive  or  batch,  a  resource  vector  X  is 
identified  as  follows: 

Computer  Required 
Class  Work 
Size  Work 

The  computer  required  will  identify  for  the  network  the 
specified  computer  required  or  'any'  computer  that  will 
satisfy  the  requirement.  If  the  'any'  computer  is  identi¬ 
fied,  the  network  model  will  have  to  determine  the  computer 
resource  as  described  in  the  next  chapter.  The  class  work 
and  size  work  identify  for  the  network  model  the  'clusters' 
as  described  in  the  previous  chapter.  The  network  model 
will  transform  these  cluster  definitions  into  the  actual 
parameters  which  are  CPU  time,  I/O  time,  and  memory 
requirements.  For  this  model's  development,  the  clusters 
and  subsequent  parameters  are  derived  rather  than 
empirically  defined. 

Software  or  hardware  constraints  may  dictate  which 
computer  will  be  used.  It  also  may  be  dictated  by  an  in¬ 
structor.  In  some  cases  user  requirements  can  be  satisfied 
by  two  or  more  of  the  computer  systems.  The  Computers  were 
defined  by  using  the  following  identification  codes: 

COMP ID  Description 
C  CYBER 

R  CREATE 

H  Harris  500 

V  VAX  11/780 


As  described  earlier,  the  CPU  time,  I/O  time,  and 
memory  requirements  can  be  expressed  as  a  function  of  the 
class  of  work  and  size  within  that  class.  Table  2.2  shows 
the  software  available  on  each  computer  system.  From  this 
Table  the  workload  classes  were  defined  as  follows: 


CLASID  Description 

A  Basic  Languages 

B  DBMS 

C  SPSS  (mathematical) 

D  SLAM  (simulation) 

E  Canned  Routines 

F  Word  Processing 


These  classes  should  be  broadly  defined  in  order  that 
management  may  conceptualize  the  requirements. 

Within  each  class  five  memory  sizes  (clusters)  were 
defined  as  follows: 


SIZEID 

1 

2 

3 

4 

5 


The  memory  size  descriptions  would  be  determined  by  use  of 
cluster  analysis  as  outlined  in  the  previous  chapter.  The 
descriptions  used  here  are  hypothetical.  For  this  model’s 
development  the  description  refers  to  the  memory  size  dis¬ 
tribution.  The  distributions  for  memory,  CPU  seconds,  and 
I/O  seconds  for  each  cluster  would  be  input  to  the  network 
model  as  is  discussed  in  the  next  chapter.  The  data  to 
determine  these  clusters  does  not  exist. 


Description 
<  20K 
20K  -  40K 
40K  -  60K 
60k  -  100K 
>  100K 
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SOFTWARE 


CYBER  CREATE  HARRIS  500  VAX11/780 


Languages 

-Basic 

X 

X 

X 

X 

-COBAL 

X 

X 

X 

-FORTRAN 

X 

X 

X 

X 

-PASCAL 

X 

X 

X 

-ALGOL 

X 

-JOVIAL 

X 

-SNOBOL 

X 

X 

-RATFOR 

X 

X 

-APL 

X 

Data  Base  VENUS 

Mgt  Systems 

IDS 

TOTAL 

INGRES 

Math,  Statistics 
and  Simulation 

-SPSS 

X 

X 

X 

-SCSS 

X 

-SLAMII 

X 

X 

-QGERT 

X 

X 

X 

-DYNAMO 

X 

-TOTAL 

X 

-MPOS 

X 

-GASP 

X 

X 

-MI  MO 

X 

Table 

2.2 

AFIT 

Network  Software. 

After  the  expected  number  of  sessions  (arrivals)  are 
tabulated  for  a  input  location  by  computer,  class,  and  size 
a  cumulative  frequency  distribution  can  be  calculated  as 
follows : 

COUNT=0 . 0 
FOR  1=1 ,NUMCPU 

FOR  J  =  1 ,NUMCLS 

FOR  K=1,NUMSIZE 

OBSFRQ(K) =FREQ (I , J,K) /TOTSES 
COUNT=OBSFRQ (K) +COUNT 
FREQ ( I , J , K ) =COUNT 
ENDFOR 
ENDFOR 
ENDFOR 

where ; 

NUMCPU  =  Number  of  computers. 

NUMCLS  =  Number  of  work  classes. 

NUMSIZ  =  Number  of  si2es. 

FREQ  =  Array  initially  holding  session  count  by  computer 

class  and  size. 

TOTSES  =  Total  number  of  sessions  for  week. 

COUNT  =  Cumulative  Frequency. 

This  simple  algorithm  creates  a  cumulative  frequency  distri¬ 
bution  which  defines  the  resource  vector  X.  The  total  size 
of  the  distribution  is  the  number  of  computers  (NUMCPU) 
times  the  number  of  classes  (NUMCLS)  times  the  number  of 
sizes  (NUMSIZ).  The  total  number  of  sessions  (TOTSES)  will 
need  to  calculated  beforehand.  The  observed  frequency  for 
each  computer,  class,  and  size  is  calculated  by  dividing  the 
number  of  sessions  for  each  computer,  class,  and  size  by  the 
total  number  of  sessions.  COUNT  is  used  to  keep  the  cumu¬ 
lative  frequency.  Finally,  this  cumulative  frequency  is 
stored  in  the  FREQ  array  replacing  the  number  of  sessions. 

This  cumulative  frequency  distribution  is  output  by  the 
workload  model  for  use  by  the  network  model.  The  network 


model  will  determine  the  job's  parameters  by  generating  a 
random  number  which  will  correspond  to  a  specific  computer, 
class,  and  size  in  this  distribution.  From  that 
description,  the  network  model  will  determine  a  job's  CPU 
time,  I/O  time,  and  memory  requirements.  This  transforma¬ 
tion  will  be  described  in  the  next  chapter. 

Arrivals 

For  all  interactive  requirements  a  certain  number  of 
interactive  sessions  would  be  required  to  complete  the  work. 
Each  work  class  has  a  certain  complexity  and  this  complexity 
increases  as  the  size  increases.  Therefore,  the  number  of 
sessions  required  to  complete  was  hypothesized  to  be  a 
function  of  the  work  class  and  size.  Likewise  for  batch, 
the  number  of  batch  runs  reflects  the  same  hypothesis. 

Given  the  total  weekly  requirements  by  class  of  work, 
size  of  work,  and  location,  the  total  number  of  arrivals  for 
each  location  needs  to  be  distributed  over  the  week.  O'Neil 
and  O'Neil  (Ref  19:11-12)  concluded  that  the  distribution  of 
arrivals  within  a  day  could  best  be  treated  as  an  empirical 
bimodal  distribution  and  that  the  groups  to  which  users 
belonged  is  a  significant  factor.  Hence,  it  is  hypothesized 
that  the  distribution  of  interactive  and  batch  arrivals 
across  the  week  would  differ.  Furthermore,  within  the 
interactive  users,  students  and  faculty/administrative  dis¬ 
tributions  would  differ.  The  arrivals  at  the  software 
development  shop  is  hypothesized  to  follow  the  administra¬ 
tive  distribution. 


From  the  daily  rates  it  would  be  necessary  to 


m 


distribute  the  arrivals  on  a  hourly  basis.  The  same 
hypotheses  concerning  weekly  distributions  apply  over  the 


day. 


After  the  total  expected  arrivals  (interactive  and 
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batch  jobs)  are  tabulated  for  a  week,  the  arrivals  can  then 
be  distributed  over  the  week  for  each  location  as  follows: 

FOR  1=1,7 

DAYRATE ( I ) =TOTSES*DAYDIST ( I ) 

FOR  J=1 , 24 

HOURRATE (I ,J) =DAYRATE (I ) *H0URD1ST (J) 

ENDFOR 

ENDFOR 

where; 

TOTSES  =  Total  expected  sessions  for  the  week 
DAYDIST  =  Distribution  of  expected  workload  over  week. 
HOURDIST  =  Distribution  of  daily  workload  over  day. 
DAYRATE  *  Daily  arrival  rate. 

HOURRATE  =  Hourly  arrival  rate. 

First,  the  total  number  of  sessions  (TOTSES)  for  each  week 
is  distributed  across  the  days  of  the  week.  This  is  accom¬ 
plished  by  multiplying  the  total  number  of  sessions  by  a 
daily  frequency  distribution  (DAYDIST).  The  results  are 
stored  in  DAYRATE.  The  hourly  rate  can  then  be  calculated 
by  multiplying  each  day's  rate  (DAYRATE)  by  a  hourly  fre¬ 
quency  distribution  (HOURDIST).  Finally,  hourly  arrival 
rates  for  an  entire  week  (HOURRATE)  is  output  for  latter  use 
by  the  network  model. 


Behavioral  and  Outside  Influences 

Like  any  system  a  computer  system  is  effected  by  user 
behavior  and  outside  factors.  Besides  the  arrival  rates 
identified  above,  the  user  has  a  option  of  using  interactive 


or  batch  input  mediums.  For  example,  oldtimers  have  used 
and  are  comfortable  with  cards  while  new  users  may  not  have 
ever  seen  cards.  The  input  medium  can  be  dictated  by  the 
instructor.  Novice  users  may  be  only  provided  batch  pro¬ 
cedures.  The  service  provided  may  differ  between  inter¬ 
active  and  batch;  therefore,  the  user  may  feel  it  is  easier 
to  use  some  mediums  over  others. 

Another  outside  factor  has  been  the  increasing  influx 
of  personal  computers  (PCs).  These  computers  can  take  off 
some  of  the  requirements  placed  on  the  system  resources 
whether  as  a  stand  alone  device  or  as  an  interactive  ter¬ 
minal  accessing  the  network.  The  number  of  PCs  bought  would 
also  differ  from  the  type  of  user.  Engineering  students  and 
faculty  probably  have  more  than  Logistics  or  Civil 
Engineering  personnel.  Coupled  with  the  decision  for  the 
user  to  purchase  a  PC  is  the  perceived  service  provided  by 
the  network. 

Lastly,  the  resources  used  by  a  user  is  influenced  by 
1)  first  system  taught,  2)  perception  of  services  and  3) 
ease  of  use.  For  example,  some  users  will  consistently  use 
one  resource  because  they  are  familiar  with  it  regardless  of 
difficulty  of  use.  Others  will  try  all  until  they  find 
their  perception  of  the  easiest  or  most  efficient.  Finally, 
some  will  purposely  choose  the  'difficult'  system  because  of 
the  lack  of  use  by  others  and  therefore  better  turnaround 
time. 


The  behavioral  and  outside  influences  discussed  above 


w. 


are  only  a  few  of  the  many  outside  factors  which  will  affect 
the  workload  and  subsequently  the  network.  All  of  the 
behavioral  and  outside  influences  would  be  extremely 
difficult  to  identify  and  understand  much  less  include  in 
the  model.  Therefore,  only  two  of  the  most  important 
factors  where  included  in  the  workload  model.  First,  the 
influx  of  personal  computers  was  included  because  their  use 
directly  satisfy  requirements  which  would  be  placed  upon  the 
network  resources.  Second,  the  choice  of  interactive  or 
batch  mediums  is  included.  This  choice  will  directly  affect 
the  number  of  terminals  required  on  the  network  and  the 
overhead  of  each  computer  as  more  interactive  users  are 
attached. 


The  Model 

The  primary  purpose  of  the  workload  model  is  to  provide 
the  values  needed  to  drive  the  network  model  over  the  period 
of  a  school  quarter  {11  weeks).  This  output  consists  of  the 
arrival  rates  and  cumulative  frequency  distribution  of  re- 
soures  required  for  each  input  location  of  the  network  as 
defined  in  Chapter  One.  Both  of  these  are  empirical  distri¬ 
butions.  Though  ideally  it  would  be  best  to  verify  and 
validate  each  type  of  user  or  location  separately,  this  is 
not  possible  because  of  the  interconnection  (batch)  of  both. 

Input  s.  The  categories  of  users  defined  earlier  were 
transformed  into  separate  input  files  to  define  each 
category's  workload  requirements.  These  files  were  struc- 
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tured  to  define  the  workload  requirements  at  AFJT  for  an 
entire  year  (four  school  quarters). 

The  student  load  was  defined  into  three  input 
categories:  course  work,  word  processing,  and  thesis  work. 
Course  work  was  identified  by  location,  course,  number  en¬ 
rolled,  quarter  offered,  the  work  required  by  week 
(computer,  class,  size),  and  the  behavioral  factors  of  PC 
and  BATCH.  PC  is  the  expected  percentage  of  students  which 
own  personal  computers  while  BATCH  is  the  expected  percent¬ 
age  of  students  which  will  use  batch  if  possible.  Word 
processing  requirements  are  defined  for  each  school.  Within 
each  school  the  number  of  students,  percent  using  network 
word  processing,  and  a  load  factor  per  week  are  defined. 
The  load  factor  is  defined  as  percentage  of  the  probable 
students  expected  to  use  word  processing  per  week  over  the 
quarter.  The  student  thesis  work  was  structured  like  the 
course  work. 

The  faculty  load  was  defined  by  two  input  files  -- 
faculty  research  and  word  processing.  The  faculty  research 
and  word  processing  files  are  structured  like  the  student 
files . 

Administrative  load  was  defined  by  three  files  —  daily 
requirements,  weekly  requirements  and  periodic  requirements. 
Daily  requirements  define  the  expected  daily  load  and  was 
structured  similar  to  student  course  work.  Weekly 
requirements  and  periodic  requirements  identify  specific 
requirements  by  day,  time,  computer,  class,  and  size. 


CRSWRK 

THSWRK 

STUDWP 

FACRCH 

FACTWP 

DAYREQ 

WEKREQ 

PERREQ 

SFTDEV 


1  Student  course  work 

1  Student  thesis  requirements 

2  Student  word  processing 

1  Faculty  research  and  course 

preparation 

2  Faculty  word  processing 

3  Daily  administrative  requirements 

4  Weekly  administrative  requirements 

4  Periodic  administrative  requirements 

3  Software  Development  requirements 


Format  Description 

1  Location,  Course/Description,  quarters,  #  of 

students/users,  work  per  week  (computer, class, 
size),  PC  factor,  BATCH  factor 

2  Location,  quarter,  #  of  users,  percent,  load  per 
week,  PC  factor 

3  Location,  description,  quarter,  computer,  class, 

size,  #  users,  BATCH  factor 

4  Location,  description,  quarter,  computer,  class, 

size,  day  number. 


Table  2.3  Workload  Input  Files. 


Software  development  requirements  are  defined  exactly 
like  the  daily  requirements  file  above.  Table  2.3  shows  the 
names  and  structure  of  these  files. 

Table  2.4  identifies  the  input  variables  required  to 
drive  the  workload  model.  BAFACT  identifies  the  computers 
which  have  batch  capability.  All  except  the  VAX  11/780  have 
batch  capability.  BTCHFACT  array  defines  the  expected 


number  of  batch  runs  required  by  class  and  size.  DAYSAD, 
DAYSBA,  and  DAYSST  arrays  are  the  administrative,  batch  and 


Variable  Name 


Description 


BAFACT (MAXCPU) 


BTCHFACT (MAXCLS , 
MAXSIZ) 


DAYSAD ( 7 ) 


Identifies  whether  computer  has 
batch  capability. 

Expected  number  of  batch  runs 
required  by  class  and  size. 

Distribution  of  administration  work¬ 
load  over  the  week. 


DAYSBA ( 7 ) 


Distribution  of  batch  workload  over 
the  week. 


DAYSST ( 7 ) 


Distribution  of  student  workload 
over  the  week. 


HOURAD (24] 


HOURBA ( 24 ) 


HOURST ( 24 ) 


SESFACT( MAXCLS, 
MAXSIZ) 

PCFACT (MAXCLS, 
MAXSIZ) 

WPFACT (MAXCPU, 
MAXSIZ) 


Distribution  of  administration  work¬ 
load  over  a  day. 

Distribution  of  batch  workload  over 
a  day. 

Distribution  of  student  workload 
over  a  day. 

Expected  number  of  sessions  by 
class  and  size. 

Identifies  classes  and  sizes  able 
to  process  on  PC. 

Word  processing  distribution  over 
computers  by  size. 


Table  2.4  Main  Workload  Input  Variables. 


student  distributions  of  the  workload  over  the  week. 


HOURAD,  HOURBA  and  HOURST  arrays  are  the  administrative, 
batch  and  student  distributions  of  a  day's  workload  over  the 
day.  PCFACT  array  identifies  the  classes  and  sizes  capable 
of  being  run  on  a  personal  computer.  For  example,  FORTRAN 
and  Pascal  jobs  would  be  expected  to  run  on  a  PC  while  SI.AM 
and  SPSS  would  not.  SFSFACT  array  defines  the  expected 


number  of  sessions  needed  to  complete  a  requirement  by  class 
and  size.  WPFACT  array  distributes  by  size  the  word  pro¬ 
cessing  requirements  over  the  available  computers.  All  of 
these  values  would  have  to  be  determined  from  data  analysis 
after  job  sizes  (clusters)  are  defined. 

Student  Locations.  Each  file  was  read  and  distributed 
into  three  arrays;  Total  Interactive  (TOTINT),  Total 
Personal  Computing  (TOTPC),  and  Total  Batch  (TOTBAT).  The 
number  of  users  were  calculated  for  each  physical  location 
(LOCAT)  f  week  (WEEKNO) ,  computer  (COMP),  class  (CLASS),  and 
size  (SIZE).  For  student  course  work  the  distribution  was 
as  follows: 

TOTPC (LOCAT, WEEKNO, COMP, CLASS, SIZE)  = 

NUMSTUDS  *  PCFACT (CLASS, SIZE)  *  INPC 
TOTBAT (LOCAT , WEEKNO , COMP , CLASS , SI ZE )  = 

NUMSTUDS  *  BAFACT (COMP)  *  INBTCH 
TOTINT (LOCAT , WEEKNO , COMP , CLASS , SI ZE )  = 

NUMSTUDS  -  (TOTPC (...)  +  TOTBAT (...) ) 

where ; 

NUMSTUD  =  number  of  students  requiring  resources  COMP, 
CLASS  and  SIZE  at  LOCAT 
INPC  =  input  PC  factor 
INBTCH  =  input  BATCH  factor 

The  total  number  of  PC  users  (TOTPC)  is  equal  to  the  total 
number  of  students  (NUMSTUD)  times  a  PCFACT  (as  described 
earlier)  times  the  input  PC  factor  (INPC).  The  input  PC 
factor  is  the  expected  percentage  of  NUMSTUD  which  own 
personal  computers.  The  total  number  of  batch  users 
(TOTBAT)  is  calculated  in  the  same  manner  using  BAFACT  and 
INBTCH  factors.  BAFACT  defines  whether  this  computer  has 


batch  capabilities  and  INBTCH  is  the  expected  percentage  of 
NUMSTUD  which  would  use  batch  instead  of  interactive 
mediums.  Lastly,  the  total  number  of  interactive  users 
(TOTINT)  is  equal  to  the  total  number  of  students  minus  the 
PC  users  and  the  batch  users. 

Thesis  work  was  distributed  the  same  way.  Word  pro¬ 
cessing  work  was  determined  and  distributed  as  follows: 

NUMWP  {WEEKNO)  =  NUMSTUD  *  PERCENT  *  l.DFACT  (WEEKNO) 
where ; 

NUMWP  =  number  word  processing  users 

NUMSTUD  =  input  number  of  students 

PERCENT  =  expected  percentage  of  students  to  use  word 
processing 

LDFACT  =  expected  load/week 

The  number  of  word  processing  users  (NUMWP)  for  each  week  is 
calculated  by  multiplying  the  total  number  of  students 
(NUMSTUD) ,  the  expected  percentage  of  students  to  use  word 
processing  (PERCENT) ,  and  the  load  factor  per  week  (LDFACT) 
as  described  earlier.  These  users  were  then  distributed 
into  the  'total'  arrays  as  follows: 

TOTPC (LOCATION, WEEKNO, COMP, CLASS, SIZE)  = 

NUMWP (WEEKNO)  *  WPFACT (COMP , SIZE)  *  INPC 

TOTINT (LOCATION , WEEKNO , COMP , CLASS , SI ZE)  = 

NUMWP  -  TOTPC (...)  *  WPFACT (COMP, SIZE) 

The  total  number  of  PC  users  is  equal  to  the  total  number  of 
word  processing  users  (NUMWP)  times  the  word  processing 
factor  (WPFACT)  and  the  input  PC  factor.  The  WPFACT  array 
defines  the  distribution  of  word  processing  requirements  for 
each  computer.  The  input  PC  factor  is  again  the  expected 


percentage  of  NUMWP  who  own  personal  computers.  The  total 
number  of  interactive  users  (TOTINT)  is  equal  to  NUMWP  minus 
the  personal  computer  users  times  the  same  WPFACT. 

The  arrival  rates  and  cumulative  frequency  distribu¬ 
tions  are  then  calculated  for  the  three  student  locations 
(STUD125,  STUD640,  STUD641)  from  TOTINT  by  multiplying 
TOTINT  by  SESFACT.  The  arrival  rates  and  cumulative  fre¬ 
quency  distributions  are  written  to  an  unformatted  output 
file  for  the  student  locations. 

Faculty /Administrative  Locations.  The  faculty  and 
administrative  categories  are  combined  since  they  use  the 
same  input  locations.  The  TOTINT  and  TOTPC  arrays  are 
cleared  and  the  faculty  research  and  word  processing 
requirements  are  processed  like  the  student’s.  The  daily 
administrative  file  is  also  processed  like  the  student 
course/ thesis  and  faculty  research  except  there  is  not  a  PC 
factor.  The  arrival  rates  and  cumulative  frequency  distri¬ 
butions  are  then  calculated  for  the  three  faculty/ 
administrative  locations  (FAAD125,  FAAD640,  FAAD641)  from 
TOTINT.  The  number  of  sessions  and  output  files  are 
calculated  and  written  exactly  like  the  student  locations. 

Software  Development  Location.  The  TOTINT  array  is 
again  cleared  and  the  software  development  file  is 
processed.  The  file  is  structured  and  processed  like  the 
daily  administrative  requirements  file.  The  output  arrival 
rates  and  cumulative  frequency  distributions  for  location 


SOFT125  is  calculated  and  written. 


Batch  Locations.  After  all  the  above  locations  have 


been  processed,  the  TOTBAT  array  contains  all  of  the  batch 
requirements.  The  three  batch  location's  (BTCH125 ,  BTCH640, 
BTCH641)  arrival  rates  and  cumulative  frequency  distribu¬ 
tions  can  be  fiqured  and  written  using  BTCHFACT  instead  of 
SESFACT. 

Constant  files  processing.  The  input  files  weekly  and 
periodic  requirements  contain  resource  requirements  which 
cannot  be  included  into  the  arrival  rates  and  frequency 
distributions.  Each  record  in  the  weekly  file  is  read  and 
eleven  records  are  created.  These  eleven  records  correspond 
to  the  eleven  weeks  (ten  plus  finals)  in  the  quarter.  The 
periodic  file  can  then  be  read  and  merged  into  the  output 
file. 


Verification  and  Validation 


Verification  of  the  model  required  preparation  of  the 
input  files  and  selected  print  statements  within  the 
modules.  The  workload  requirement  input  files  were  created 
to  test  all  paths  within  the  modules.  These  files  were  kept 
small  enough  to  verify  manually  the  expected  output  of  the 
model.  The  input  variable  values  were  chosen  to  represent 
reality  although  few  of  these  values  can  be  validated. 

The  test  output  of  the  workload  model  matched  the 
expected  output  calculated  manually  beforehand.  The  print 
statements  inserted  in  the  modules  verified  the  paths  and 
transformations  made  by  the  modules.  The  output  file  format 
was  verified  after  completion  of  the  network  model. 


Chapter  Summary 

Chapter  Two  has  presented  the  workload 
conceptualization  and  characterization  of  the  workload  ne¬ 
cessary  to  drive  the  network  model.  The  interface  between 
the  workload  and  network  models  has  been  established. 


Chapter  Three  presents  the  network  model. 


Chapter  3 

THE  NETWORK  SIMULATION  MODEL 


Introduction 

This  chapter  describes  the  network  simulation  model, 
model  operation,  and  how  the  model  reflects  the  network. 
The  network  simulation  model  was  developed  in  three  phases. 
First,  a  conceptual  structure  of  the  primary  components  as 
described  in  Chapter  One  was  created.  Next,  the  input 
variables  were  identified.  Besides  the  arrival  rates  and 
cumulative  frequency  distributions  created  by  the  workload 
model,  tables  and  probability  mass  functions  were  created  to 
describe  the  complex  interactions  of  the  components  and 
complex  routing  decisions.  Next,  the  conceptual  structure 
was  translated  into  the  simulation  language.  Finally,  veri¬ 
fication  and  validation  of  the  model  is  discussed. 

Conceptual  Structure 

The  AFIT  network  system  consists  of  three  types  of 
resources — input  locations,  computers,  and  printers.  These 
resources  are  depicted  in  Figure  3.1.  The  input  locations 
are  then  divided  into  terminals  and  batch  (card  readers) 
locations.  Some  of  the  batch  locations  may  be  switched 
between  computers.  Each  computer  has  a  maximum  number  of 
input  ports  which  limit  the  number  of  terminals  connected. 
For  example,  the  VAX  11/780  has  38  ports  connected; 
therefore,  only  38  interactive  users  can  be  connected.  Some 
of  the  printers  may  be  switched  between  computers  as 
described  in  Chapter  One.  Their  selection  is  always 
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Figure  3.1 


Overall  Network  Conceptualization. 


dependent  upon  the  computer  selected  and  input  location. 

The  GANDALF  switchs  between  the  resoures  is  not 
simulated.  The  prediction  of  network  protocols,  channel 
message  throughput,  and  delays  are  not  an  objective  of  this 
research.  Although  the  capability  of  intercomputer  communi¬ 
cations  is  possible  at  AFIT,  the  software  is  not  available. 
It  is  not  expected  to  be  required  in  the  future  except  for 
the  occasional  transfer  of  files. 

Arrivals.  There  are  two  types  of  arrivals  to  the 


network,  interactive  users  and  batch  jobs.  After  the  inter¬ 
active  user  arrives,  a  series  of  processes  must  be  accom- 
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Table  3.1  Interactive  Arrival  Responses. 


plished  before  connection  to  a  computer  is  established. 
These  conditions  and  responses  are  summarized  in  Table  3.1. 
The  user  must  determine  if  the  computer,  terminal  (if  not 
dial-up),  and  port  into  the  computer  are  available.  If  the 
computer  is  not  available,  the  user  leaves  and  returns 
later.  If  the  computer  is  available,  a  terminal  is  then 
seized.  When  no  terminals  are  available,  the  user  must 
decide  whether  to  wait  or  to  return  later.  Even  after  the 
computer  and  terminal  become  accessable,  connection  to  a 
port  may  not  be  possible.  Again,  the  user  must  decide 
whether  to  wait  or  leave.  Finally,  if  the  computer, 
terminal,  and  port  are  available  the  user  may  log  on.  After 
log  on  the  user  (terminal)  and  computer  operate  indepen¬ 
dently  of  the  other  terminals  and  computers.  The  user 
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Queue 

Figure  3.2  Interactive  Load. 

submits  'jobs'  to  the  one  computer  until  the  session  time  is 
complete.  Printer  jobs  may  be  queued  to  a  printer  access- 
able  to  the  computer. 

Computers.  Since  the  purpose  of  this  model  was  not  to 
perform  any  computer  performance  measurement  or  evaluation 
upon  specific  computers,  the  internal  hardware  configuration 
of  each  computer  was  not  simulated.  Hence,  Chandy's 
analytical  queueing  models  illustrated  in  Chapter  One 
(Figures  1.2-1. 4)  can  be  modified  such  that  a  computer's 
central  processing  unit  (CPU)  essentially  becomes  a  'black 
box'.  Figure  3.2  illustrates  an  interactive  arrival  on  a 
computer.  The  user  submits  jobs  to  the  CPU  which  after 
completion  may  return  output  to  the  terminal  or  printer.  On 
most  computers  the  user  has  an  option  when  jobs  are 
submitted  whether  to  'wait'  for  the  job  completion  (normal 
interactive  mode)  or  submit  as  a  'batch'  job  which  will  not 
output  back  to  the  terminal  until  the  user  requests  it.  All 
of  AFIT's  computers  have  this  capability. 

As  illustrated  in  Figure  3.3  the  batch  arrivals  are 
more  straight  forward  than  the  inactive  arrivals.  The  batch 
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Figure  3.3  Batch  Load. 


job  arrives  and  is  submitted  to  the  input  queue.  When  there 
is  room  inside  the  box  the  job  enters  and  after  a  trans¬ 
formation  is  output  to  a  printer. 

Identification  of  Variables 

During  the  simulation  the  CPU's  ’black  box'  transfor¬ 
mation  can  be  defined  by  keeping  track  of  the  CPU’s  state 
and  the  resource  requirements  placed  by  the  jobs  flowing 
through  it.  Table  3.2  lists  these  variables.  The  first 
three  variables  (ITRMOL,  ITRMWP,  ITRMAC)  are  utilized  to 
track  the  states  of  the  terminals  currently  attached  to  the 
computer.  The  number  of  terminals  online,  ITRMOL,  is  the 
total  number  of  terminals  currently  utilizing  a  port  into 
the  computer.  The  number  word  processing,  ITRMWP,  is  the 
total  number  of  terminals  utilizing  word  processing 
programs.  These  terminals  do  not  include  use  of  the  editors 
for  program  development.  The  number  active,  ITRMAC,  is 
equal  to  the  total  online  minus  the  number  of  terminals 
currently  waiting  for  a  job  completion.  Terminals  waiting 
for  job  completion  (job  submitted  in  batch  mode)  cannot 
place  other  interactive  demands  until  the  job  completes. 
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Mnemonic 


Description 


ITRMOL 


ITRMWP 


ITRMAC 


#  Terminals  Online 


#  Terminals  Word  Processing 

#  Terminals  Active 


I EX JOB 


IMEM 


ICPU 


INOUT 


IMPL 


TNOW 


#  Jobs  Executing 

Total  Memory  Requirements  of  jobs 
Executing 

CPU  Seconds  Used 

I/O  Seconds  Used 

Multi-Program  Level 

Current  Time 


Table  3.2  Computer  State  Variables. 


IEX JOB  is  the  number  of  jobs  currently  'executing'. 
This  variable  is  incremented  as  a  job  is  allowed  to  enter 
the  box  and  decremented  when  it  exits.  Total  CPU  memory 
requirements  of  the  executing  jobs  are  stored  in  IMEM.  This 
variable  is  also  incremented  and  decremented  as  jobs  enter 
and  exit  the  computer.  ICPU  and  INOUT  variables  are  used  to 
store  the  total  CPU  and  I/O  seconds  used  during  the  statis¬ 
tics  collection  interval.  Lastly,  IMPL  is  an  input  variable 
which  sets  the  computers  multiprogram  level.  This  multi¬ 
program  level  limits  the  number  of  jobs  that  may  enter  the 
CPU's  black  box. 

All  these  variables  may  be  used  to  predict  the  run  time 
as  a  job  enters  the  CPU.  Run  time  is  defined  as  the  time 
from  when  a  job  enters  the  box  till  the  job  enters  the 
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output  queue.  For  computers  on  the  network  which  do  not 
have  the  entire  workload  generated  within  AFIT  (e.g.  CYBER 
and  CREATE) ,  a  system  variable  which  may  be  used  is  the  time 
of  day.  Computer  performance  measurement  techniques  (Ref 
23)  and  computer  performance  modeling  techniques  need  to  be 
implemented  on  all  of  the  network  computer  resources.  This 
'black  box'  may  then  be  defined  using  the  above  variables 
and  applying  multivariate  tools  and  analytical  models  on 
data  collected. 

Input  Variables.  The  input  variables  of  the  simulation 
model  define:  the  mean  and  standard  deviation  of  various 
distributions  required  to  drive  the  simulation;  probability 
mass  functions  when  a  routing  decision  needs  to  be  made;  and 
various  tables  to  define  the  complex  relationships  between 
computers,  locations,  and  so  forth.  The  file  contains  space 
for  a  mean  and  standard  deviation  even  if  the  distribution 
is  found  to  require  only  a  mean  such  as  exponential.  This 
allows  the  distributions  to  be  easily  modified  without 
changing  the  format  of  the  variable  file. 

A  FACTOR  array  was  created  to  hold  the  means  and 
standard  deviations  of  the  interactive  user  behavior  distri¬ 
butions  and  CPU  job  characteristics.  Interactive  user 
behavior  includes  think  time  and  number  of  jobs  entered  per 
session.  Think  time  is  defined  as  the  time  between  one  job 
submittal  till  the  next  job  submittal.  Iyengar  and  Chih- 
Chuh  found  this  was  best  approximated  by  an  empirical 
exponential  distribution  (Ref  14:310).  Factors  which 


characterize  the  job  behavior  include  CPU  seconds,  I/O 
seconds,  and  memory  size.  Factors  are  provided  for  each 
work  class  and  size.  An  additional  factor  included  for  user 
behavior  is  BATINT  which  defines  the  probability  of  the  user 
submitting  the  job  and  waiting  for  completion  (wait  mode)  or 
submitting  it  as  batch  (batch  mode).  These  probabilities 
are  defined  for  each  computer  and  size  of  work.  In  some 
computer  systems,  such  as  the  CYBER,  if  the  size  becomes  too 
large,  the  user  is  required  to  submit  jobs  in  the  batch 
mode.  For  small  jobs  the  probability  would  be  expected  to 
be  low  since  one  of  the  advantages  of  interactive  use  is 
immediate  feedback.  These  probabilities  would  also  expect 
to  change  as  the  computers  response  times  change.  If  the 
response  time  is  high,  then  more  users  would  be  expected  to 
use  batch  mode.  This  allows  other  work  to  be  accomplished 
as  the  job  runs. 

Values  to  control  the  users  arrivals  include:  the 
arrival  rate  for  each  input  location,  ARRATE?  the  cumulative 
frequency  distribution  for  each  input  location,  FRTABL;  and 
the  probabilities  of  an  arrival  being  dial-up,  DIALUP. 
ARRATE  is  the  arrival  rates  created  by  the  workload  model 
for  each  input  locations.  A  rate  for  each  hour  over  the 
quarter  is  provided.  FRTABL  is  the  cumulative  frequency 


distributions  created  by  the  workload  model  for  each  input 
location.  A  distribution  is  provided  for  each  week  of  the 
quarter.  It  is  used  to  determine  computer  selected,  class 
work,  and  size  work.  DIALUP  contains  the  probability  mass 
function  that  an  interactive  arrival  originated  at  an 
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external  (dial-up)  input  terminal.  Different  functions  are 
provided  for  each  computer.  Some  computers  are  expected  to 
have  more  dial-up  arrivals  than  others.  This  probability 
would  include  the  user's  preception  of  the  service  provided. 
Dial-up  arrivals  would  be  expected  to  rise  after  normal 
work/school  hours. 

Input  variables  define  the  printers'  speed,  connection 
to  the  computers,  and  probabilities  of  requiring  a  printer 
resource.  The  printers'  speeds  ( 1 ines/ second)  are  defined 
in  an  array,  PRTSPD.  Connections  are  defined  by  a  cumula¬ 
tive  probability  mass  function  PRTTAB.  For  each  computer 
and  input  location,  PRTTAB  contains  a  cumulative  probability 
mass  function  which  defines  the  printers  accessable  from  the 
computer.  The  VAX  11/780  has  only  a  printer/plotter 
connected.  Therefore,  the  VAX  11/780  printer/plotter  would 
be  selected  for  all  input  locations.  The  CYBER  has  three 
printer/plotters  connected  in  building  640,  one  printer 
connected  in  building  125,  and  one  printer  connected  in 
building  641.  The  selection,  therefore,  is  more  complex  and 
is  dependent  upon  the  input  location. 

Other  variables  define  the  probabilities  of  the  jobs 
requiring  a  printer  resource.  ONEJOB  is  the  probability 
that  the  last  job  submitted  by  an  interactive  user  will 
require  a  printer.  This  probability  is  expected  to  be 
higher  than  at  any  other  times  since  the  last  job  submitted 
by  an  interactive  user  many  times  is  a  print  of  the  program 
for  later  debug  or  a  program  completion  which  requires  print 


for  later  turn  in  at  a  class.  WPPROB  contains  the 
probabilities  for  each  class  that  a  printer  resource  is 
required.  As  the  complexity  of  a  program  increases  within  a 
class,  more  print  requests  are  expected.  Within  the  classes 
the  probabilities  would  be  expected  to  change.  For  example, 
a  small  FORTRAN  program  would  not  require  much  print  time. 
However,  SLAM  programs  require  many  runs  with  large  print 
times. 

If  the  print  request  originated  at  a  dial-up  device, 
printer  output  is  expected  to  sometimes  return  to  this 
device.  This  probability  is  defined  by  the  variable  DUPRT. 
In  this  case  the  speed  is  defined  in  terms  of  the  baud  rate 
of  the  connection  between  the  network  and  the  dial-up 
device.  The  printer  time  is  calculated  using  a  mean 
(PCPRTM)  and  a  standard  deviation  (PCPRTS). 

The  schedules  of  the  resources  also  need  to  be  defined 
for  the  computers  and  input  locations.  SCHBAT  contains  the 
weekly  schedule  for  the  batch  locations  while  SCHCPU 
contains  the  weekly  schedule  for  the  computers. 
Additionally,  the  card  readers  and  printers  need  to  be 
identified  to  open/close  as  the  computers  and  locations 
open/close.  IPRGAT  identifies  the  printers  to  close  when  a 
computer  is  down  or  location  is  closed.  ICRGAT  identifies 
the  card  readers  to  open  or  close  depending  on  the  status  of 
the  computers  or  the  input  locations. 

Various  time  delays  need  to  be  introduced  as  events 
flow  through  the  system.  These  are  provided  in  the  form  of 
a  mean  and  standard  deviation.  Later  analysis  will  need  to 
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be  performed  to  find  the 
this  model's  development/ 


These  variables'  names  follow  each  individual  condition.  If 


a  computer  is  down,  the  arrival  is  rescheduled  using  the 
variables  CPULTM  and  CPULTS.  If  a  terminal  is  not 
available,  the  arrival  is  rescheduled  using  the  variables 
TRMLTM  and  TRMLTS.  A  batch  operator  inputs  a  job  using  the 
variables  OPRMN  and  OPRSTD.  A  user  logs  on  the  system  using 
variables  XLOGMN  and  XLOGST.  If  a  user  decides  not  to  wait 
for  a  port,  the  user's  return  is  rescheduled  using  the 
variables  WAITMN  and  WAITST. 

The  points  where  an  interactive  user  would  decide  to 
wait  or  leave  are  defined  by  a  probability  mass  function. 
TRMWAT  contains  the  probabilities  that  a  user  will  wait  if  a 
terminal  is  not  available.  It  is  defined  for  each  input 
location  and  number  currently  waiting.  For  example,  a  user 
would  probably  not  wait  if  5  users  were  already  waiting  at 
an  input  location  with  only  5  terminals.  However,  if  the 
location  contains  100  terminals  and  5  users  were  waiting, 
the  user  would  wait  with  a  higher  probability. 

Network  Model  Translation 

After  the  conceptualization  of  the  system  has  been 
completed  with  the  complex  interrelationships  the  system  can 
be  translated  into  a  simulation  language.  This  translation 
is  greatly  influenced  and  constrained  by  the  language 
chosen.  The  'world  view'  begins  to  take  the  shape  of  the 
structure  of  the  1 anguage-- the  categorization  of  the 


resources,  activities,  and  processes 


SLAM  allows  two  different  methods  to  create  a  discrete 
simulation  which  Prisker  divides  into  'network'  structure 
and  'discrete'  structure.  The  'network'  structure  consists 
of  specialized  nodes  and  branches  that  are  used  to  model 
resources,  queues  for  resources,  activities,  and  entity 
flow.  However,  the  'network'  structure  lacks  the 
flexibility  needed  to  model  a  complex  system.  The 
'discrete'  structure  provides  this  added  flexibility  by 
using  FORTRAN  subroutines  and  the  functions  defined  in  the 
'network'  structure.  Both  of  these  methods  can  be  combined 
to  form  the  network  simulation  model. 

Because  of  the  greater  flexibility  in  using  discrete 
structure,  the  majority  of  the  program  is  written  in  FORTRAN 
with  the  network  structure  used  to  define  only  the  actual 
resources  (computers,  terminals,  card  readers,  and  printers) 
of  the  system.  Events  generated  during  the  simulation  may 
enter  and  exit  the  network  structure.  This  allows  a  minimum 
amount  of  code  changes  required  when  a  hardware  configura¬ 
tion  is  changed.  The  network  structure,  with  the  input 
variables,  define  the  actual  hardware  configuration  while 
the  discrete  structure  handles  the  complex  relationships 
between  the  resources.  Hence,  the  discrete  structure  will 
not  have  to  be  modified  for  each  configuration  change. 

SLAM  Network  Structure 

The  hardware  configuration  of  the  model  is  defined 
using  SLAM  network  structure.  Figure  3.4  illustrates  the 
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Figure  3.4  Network  Structure. 


modules  for  the  network  portion  of  the  simulation  --  the 
resource  allocations,  interactive  arrivals  and  departures, 
batch  arrivals,  and  printers.  Batch  departures  are  not 
necessary  since  printing  is  the  last  resource  required. 

At  most  of  the  modules  various  statistics  may  be 
collected.  At  batch  arrivals  the  wait  time  for  input  may  be 
collected.  The  session  times  may  be  collected  after  inter¬ 
active  release.  Print  time  and  print  queue  times  may  be 
collected  at  printers.  Lastly,  after  a  batch  event  finishes 
'printing',  the  turnaround  time  for  each  computer  and  loca¬ 
tion  may  be  collected. 

Resource  Module.  The  resources  are  defined  and 


initialized  using  SLAM  resource  blocks,  gate  blocks,  and 
global  variables  as  shown  in  Table  3.3.  The  computers  are 


Resources 

Defined  By 

Values 

Computers 

Global  Variable 

0/1 

Card  Readers 

Gates 

open/close 

Printers 

Resource  Block 

0/1 

Terminals 

Resource  Block 

0-? 

Ports 

Global  Variable 

0-? 

Table  3.3  Resource  Declarations. 

defined  by  use  of  a  single  global  variable  which  can  be 
either  equal  to  "1"  indicating  the  computer  is  operational 
or  equal  to  "0"  indicating  the  computer  is  not  operational. 
The  card  readers  are  defined  by  use  of  a  gate.  The  SLAM 
gate  is  either  opened  or  closed.  If  open,  this  allows  the 
jobs  (card  decks)  to  be  submitted  and  flow  straight  through 
the  system.  If  the  card  reader  is  closed,  jobs  will  still 
be  submitted  but  will  wait  for  an  opening.  At  a  gate 
opening  all  the  jobs  are  released.  The  printers  are  defined 
by  a  resource  block  which  can  be  either  equal  to  "1" 
indicating  the  printer  is  operational  or  equal  to  "0" 
indicating  the  printer  is  not  operational.  The  terminals 
are  defined  likewise  with  the  number  of  terminals  available 
at  each  terminal  input  location.  Lastly,  the  ports  are 
defined  using  a  global  variable  set  to  the  number  of  input 
ports  for  each  computer. 

Batch  Arrivals.  Batch  arrivals  enter  the  network 
through  enter  node  1  (Figure  3.5).  If  the  input 
location/card  reader  is  open  the  event  immediately  becomes 
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Figure  3.5  Network  Batch  Arrivals, 


available  for  operator  input  which  takes  USERF(2)  seconds. 
USERF (2)  is  calculated  using  a  normal  distribution  with  a 
mean  of  OPRMN  and  a  standard  deviation  of  OPRSTD.  If  the 
computer  is  down  or  the  input  location  closed,  the  job  may 
be  left  for  subsequent  input  after  the  computer  comes  up  or 
an  operator  opens  the  location.  Various  statistics  may  be 
collected  (i.e.  time  waiting)  before  the  event  is  routed 
back  to  discrete  processing. 

Interactive  Arrivals.  After  an  interactive  user  has 
decided  to  either  seize  a  terminal  or  wait  for  one,  discrete 
processing  passes  the  event  to  enter  node  2  as  shown  in 
Figure  3.6.  The  event  is  then  passed  to  the  AWAIT  node  for 
the  input  location  to  seize  the  terminal  for  that  location. 
If  a  terminal  is  available,  the  user  can  then  log  on, 
USERF(l),  and  return  to  discrete  processing.  USERF(l)  is 
calculated  using  a  normal  distribution  with  a  mean  of  XLOGMN 
and  a  standard  deviation  of  XLOGST.  If  a  terminal  is  not 
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Figure  3.6  Network  Interactive  Arrival. 

available,  the  user  waits  (at  the  AWAIT  node)  until  a 
terminal  from  that  location  is  released.  If  the  event  is  a 
dial-up  user,  the  event  immediatly  logs  on  using  USERF(l). 

Interactive  Release.  After  the  user  event  has 
completed  a  session  or  a  computer  is  not  operational,  the 
event  is  routed  to  entry  node  3  (Figure  3.7).  The  terminal 
resource  is  released  and  various  statistics  such  as  session 
times  are  collected.  The  event  is  then  terminated. 
Additionally,  if  a  user  event  cannot  get  a  port  after  log  on 
and  decides  not  to  wait,  the  event  is  routed  to  node  3  to 
release  the  terminal. 

Printers  and  Col lect  Statistics.  All  requests  for 
printers  enter  through  node  4  as  illustrated  in  Figure  3.8. 
The  event  is  then  routed  to  the  appropriate  printer  queue. 
If  the  printer  is  available,  the  resource  is  allocated  to 
the  event  and  the  print  time,  ATRI B ( 8 ) ,  begins.  ATRIB (8) 
contains  the  print  time  as  set  by  discrete  processing.  At 
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Figure  3.9  Discrete  Structure. 


turnaround  time  are  collected  at  location  BACL.  Events  are 
not  returned  to  discrete  processing. 

SLAM  Discrete  Structure 

The  discrete  structure  of  the  simulation  drives  the 
simulation  using  the  network  structure  and  the  input 
variables  in  input  file  FACTOR.  Figure  3.9  illustrates  the 
structure  which  has  been  divided  into  ten  modules.  One 
module.  Arrivals,  handles  all  regular  user  arrivals  for  both 
interactive  and  batch.  Two  modules.  Interactive  Logon  and 
Interactive  Handler,  control  interactive  sessions.  Another 
two  modules,  CPU  Arrivals  and  CPU  Departures,  handle  all 


requests  for  CPU  resources.  Route  to  Printers  handles  all 
requests  for  printer  resources.  Periodic  Arrivals  schedules 
the  arrivals  of  events  from  the  CONSTANT  input  file. 
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Modules  Clock  and  Resources  control  the  day's 
operational  schedule.  Clock  is  scheduled  every  hour  (3600 
seconds)  to  update  the  arrival  rates#  cumulative  frequency 
distributions#  and  so  forth.  Additionally#  it  performs  end 
of  day#  week#  or  run  processing.  Daily  the  system 
resources  may  be  scheduled  to  open  or  close  during  the 
course  of  the  day.  Resources  performs  the  appropriate 
change  of  state. 

Initialization.  Figure  3.10  illustrates  the  start-up 
initialization  of  the  network  system  model.  All  SLAM 
variables  are  initialized  to  0  and  system  variables  default 
values  are  set.  Input  file  FACTOR  is  read  to  initialize 
all  remaining  variables.  The  arrival  rate  and  cumulative 
frequency  distribution  files  created  by  the  workload  model 
are  read  to  initialize  the  arrival  rate  tables  (ARRATE)  and 
cumulative  frequency  distributions  (FRTABL)  for  each  input 
location. 

The  first  events  are  then  scheduled.  A  clock  update  is 
scheduled  to  occur  in  an  hour.  The  first  input  arrivals  are 
scheduled  to  occur  for  all  locations  using  ARRATE.  The 
resource  availability  tables#  SCHCPU  and  SCHBAT#  are  checked 
to  schedule  any  resource  changes  for  the  day.  Finally#  the 


input  file#  CONSTANT#  is  read  to  schedule  the  first  periodic 
arrival  event. 
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Figure  3.10  Network  System  Initialization. 


Arrivals.  All  batch  and  interactive  arrivals  for  all 
locations  are  processed  as  shown  in  Figure  3.11.  As  an 
event  arrives  from  a  location,  the  next  arrival  is  scheduled 
for  that  location  using  ARRATE.  The  attributes  of  the  event 
are  then  set.  The  FRTABL  for  the  location  is  used  to  deter¬ 
mine  computer  desired,  class  work,  and  job  size.  If  the 
computer  code  from  FRTABL  is  equal  to  the  'any'  code  then  a 
computer  is  selected  by  using  a  probability  mass  function 


(\.NA 


(ANYDST)  for  the  class  work.  The  event  may  be  selected  for 
a  dial-up  arrival  if  a  random  number  generated  is  less  than 
a  dial-up  probability  (DIALUP)  for  the  computer  and  hour  of 
day. 

If  it  is  a  batch  arrival,  the  event  is  then  entered 
into  the  network  structure.  Otherwise,  a  check  is  made  to 
see  if  the  computer  is  operational.  If  not,  the  event  is 
rescheduled  to  arrive.  A  check  is  then  made  to  see  if  a 
terminal  is  available  at  the  input  location.  If  so,  then 
the  event  can  be  routed  into  the  network  structure. 
Otherwise,  a  random  number  is  generated  and,  if  less  than 
the  probability  that  the  user  will  wait  (WAITTR) ,  the  e  ent 
is  routed  to  the  network  structure.  WAITTR  is  dependent 
upon  the  current  queue  length  and  input  location.  If 
greater  than,  the  event  is  rescheduled. 

Interactive  Log  On.  Figure  3.12  illustrates  the 
Interactive  Log  On  module.  First,  a  check  is  made  to  see  if 
a  port  is  available  to  the  computer  desired.  If  not,  a 
random  number  is  generated.  If  the  random  number  is  less 
then  the  probability  that  the  user  will  wait  (WAITPR),  the 
event  is  put  into  a  wait  queue.  If  the  user  will  not  wait, 
the  event  is  entered  into  the  network  structure  to  release 
the  terminal.  If  the  port  is  available,  the  CPU  states  are 
updated  (f  active,  #  online,  and  #  word  processing 
terminals);  the  expected  number  of  jobs  the  interactive  user 
will  run  is  set  using  a  normal  distribution  with  a  mean  and 
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Figure  3.12  Interactive  Log  On. 


standard  deviation  for  the  class  and  size  of  work.  The 
first  think  tine  is  set  and  the  Interactive  Handler  is 
scheduled. 

Interactive  Handler.  The  Interactive  Handler  is 
scheduled  at  the  end  of  the  user  think  time.  It  is  also 
scheduled  after  completion  of  a  CPU  job  which  an  interactive 
user  submitted  in  'wait*  mode.  Figure  3.13  illustrates  the 
Interactive  Handler.  If  the  job  had  been  submitted  in  wait 
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mode,  a  check  is  made  to  see  if  any  jobs  still  need  o  be 
generated.  If  so,  another  think  time  is  calculated  ard  the 
Interactive  Handler  is  scheduled  again.  Otherwise,  the 
session  is  over.  If  the  Interactive  Handler  had  been 
scheduled  because  the  end  of  a  user  think  time  had  been 
reached,  the  job  count  is  decremented,  the  job  attributes 
are  set,  and  the  CPU  Arrival  module  is  called  to  submit  the 
job. 

If  the  job  was  submitted  in  wait  mode,  the  Interactive 
Handler  is  done  and  the  user  will  wait  till  the  job 
completes.  Otherwise,  the  job  was  submitted  in  batch  mode. 
If  more  jobs  are  left,  the  think  time  is  calculated  and  the 
Interactive  Handler  is  scheduled  again.  If  no  jobs  are 
left,  the  session  is  complete. 

When  a  session  is  complete  the  CPU  states  are  updated. 
A  check  is  made  to  determine  if  any  other  users  are  waiting 
for  a  port.  If  so,  a  user  is  removed  from  the  queue  and 
started.  Finally,  the  event  is  routed  to  the  network 
structure  to  release  the  terminal  resource. 

CPU  Arrivals.  The  Interactive  Handler  and  the  Network 
Batch  Arrivals  submit  the  jobs  requiring  CPU  resources  to 
the  CPU  Arrival  module  (Figure  3.14).  The  job's  CPU  time, 
memory  required,  and  I/O  time  are  calculated  based  upon  the 
job's  class  and  size.  If  this  is  an  interactive  job  in 
wait  mode,  the  number  of  active  terminals  is  decremented. 
If  there  is  room  for  the  job  in  the  CPU's  'execute  queue', 
then  the  run  time  is  calculated  using  the  CPU's  states  as 
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Figure  3.14  CPO  Arrivals. 


described  earlier.  The  job  is  then  scheduled  for  CPU 
departure.  Otherwise,  the  job  is  stored  into  the  CPU's 
'input  queue'. 
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Figure  3.15  CPU  Departures. 

CPU  Departures.  Figure  3.15  illustrates  the  actions 
required  when  a  job  completes  'execution'.  First,  the  CPU 
states  (XEXJOB  and  IMEM)  are  decremented.  Response  times 
are  collected  for  interactive  jobs.  If  the  job  is  batch  or 
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an  interactive  word  processing,  then  Route  to  Printer  module 
is  called  to  print.  If  the  job  had  been  submitted  in  inter¬ 
active  wait  mode,  the  Interactive  Handler  module  is 
scheduled.  In  any  case,  a  chock  is  made  to  see  if  any  jobs 
are  in  the  CPU's  input  queue.  If  so,  then  the  CPU  states 
are  updated,  the  run  time  is  calculated,  and  a  job  is 
scheduled  for  CPU  Departure. 

Route  to  Printers.  When  a  job  requires  a  printer,  the 
Route  to  Printer  module  is  called  as  illustrated  in  Figure 
3.16.  First,  the  printer  needs  to  be  determined.  If  this 
event  is  an  interactive  user  on  a  dial-up  terminal,  a  random 
number  is  generated.  If  that  number  is  less  than  DUPRT  a 
print  time  is  calculated  using  a  normal  distribution  with 
parameters  PCPRTM  and  PCPRTS.  The  job  is  then  immediatly 

c? 

entered  into  the  network  structure  for  printers. 

If  the  print  request  is  not  for  a  dial-up  printer  and 
was  submitted  in  user  wait  mode,  the  Interactive  Handler  is 
scheduled.  Using  a  random  number,  the  PRTTAB  cumulative 
probability  mass  function  for  the  computer  and  input  loca¬ 
tion  is  looped  through  to  determine  an  appropriate  printer. 
The  print  time  is  calculated  using  APRTL  and  the  speed  of 
the  printer,  PRTSPD.  Finally,  the  event  is  entered  into  the 
network  printers  with  attribute  8  equal  to  the  print  time. 

Clock.  Figure  3.17  illustrates  the  Clock  module  which 
controls  all  outputs;  updates  the  arrival  rates  and  cumula¬ 
tive  frequency  distributions;  and  stops  the  simulation.  The 
update  time,  UPTTIM,  is  immediately  incremented  by  3600.  and 
Clock  is  scheduled  again.  If  the  statistics  interval. 
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resource  schedules  (SCHCPU  and  SCHBAT)  are  processed  to 
schedule  the  appropriate  computers  up/down  and  batch 
locations  open/close. 

At  the  end  of  the  week  (7  days)  the  cumulative 
frequency  distributions  for  all  input  locations  are  updated. 
If  the  end  of  the  run  has  been  reached,  then  the  final 
output  is  printed  and  the  simulation  ends. 

Resources.  The  Resource  module  is  scheduled  daily  to 
open/close  resources.  It  is  illustrated  in  Figure  3.18.  If 
the  request  is  to  schedule  a  computer  operational  or  not 
operational  then  the  appropriate  global  variable  is  set  to  1 
or  0.  If  the  computer  is  becoming  operational,  then  all  the 
card  readers  attached,  ICRGAT,  are  opened.  Otherwise,  the 
attached  card  readers  are  closed. 

If  the  request  is  for  a  batch  location  opening  or 
closing,  the  card  reader  resources  are  opened  or  closed. 
The  printers  within  the  location  as  defined  by  IPRGAT  are 
also  opened  or  closed. 

Verification  and  Validation 

Verification  of  the  model  required  prepration  of  the 
test  input  files  and  development  of  a  'log'  function  within 
the  discrete  structure.  The  function  allows  the  output  of 
the  current  time,  a  short  description,  and  the  attribute 
values  of  the  event.  The  state  of  the  computer  may  also  be 
output*  This  function  is  very  similar  to  SLAM's  network 
structure  trace  option. 
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Figure  3.18  Resources  Module. 


For  the  Initial  verification  the  input  files,  which 
would  be  created  by  the  workload  model,  were  generated  by 
another  small  program.  This  program  set  all  of  the  arrival 
rates  for  all  locations  to  one.  The  cumulative  frequency 
distributions  were  set  equal  across  all  computers,  classes. 


and  sizes.  The  input  variables  were  set  to  represent 
reality  although  few  of  these  variables  can  be  validated. 
Distributions  found  by  previous  research  were  used  when 
possible.  Otherwise,  a  normal  distribution  was  assumed. 

Using  the  above  input  files  it  was  possible  to  verify 
the  routing  and  distribution  of  the  users  and  jobs  as  they 
flowed  through  the  simulation.  The  SLAM  trace  and  the  log 
function  were  utilized  to  debug  and  verify  the  flow  of 
events.  Resource  capacities  and  variable  values  were 
changed  occasionally  to  force  conditions  or  events.  All 
modules  and  conditions  except  the  operational  scheduling 
were  verified.  Finally,  a  test  was  performed  to  force  all 
arrival  rates  to  go  zero.  After  another  day's  simulation  no 
events  remained  in  the  simulation  and  all  resource 
capacities  were  at  their  maximum  value. 

The  input  files  created  by  the  workload  model  were  then 
used  for  verification.  These  input  files  provided  more 
realistic  user  arrivals  and  requirements.  Additionally,  the 
operational  schedules  of  the  resources  were  tested.  Again 
some  resource  capacities  and  variables  values  were  changed 
to  force  conditions  or  events.  All  modules  and  conditions 
were  verified. 

An  initial  validation  of  the  model  was  performed.  As 
mentioned  previously,  most  of  the  data  required  to  validate 
the  model  does  not  exist.  However,  the  real  system  was 
reevaluated  to  validate  the  basic  structure  and  routing 
decisions.  The  output  of  the  logging  function  allowed  each 


user  to  be  traced  throughout  its  entire  duration  in  the 
model.  This  exercise  was  performed  for  every  input  location 
and  computer.  Each  of  the  responses  listed  in  Table  3.1 
occurred  during  the  model’s  testing.  These  responses  have 
been  observed  on  the  real  system. 

Even  without  a  complete  validation  the  model's  useful¬ 
ness  was  demonstrated.  For  example,  the  operational 
schedules'  impact  on  the  queue  lengths  and  turnaround  times 
for  batch  jobs  was  obvious.  During  testing  without  opera¬ 
tional  schedules  the  turnaround  times  where  small.  However, 
after  introduction  of  the  operational  schedules  the  turn¬ 
around  times  increased  dramatically.  If  there  was  an  AFIT 
standard  or  objective  concerning  turnaround  time,  the  opera¬ 
tional  schedules  for  batch  locations  could  be  evaluated 
since  they  have  an  obvious  impact  on  turnaround  time. 

After  validation  and  implementation  the  model  will  be 
most  useful  for  determining  the  impact  of  increased  require¬ 
ments  and  hardware  upgrades.  For  example,  suppose  it  was 
suggested  to  add  more  terminals  to  relieve  the  congestion 
and  wait  time  at  the  input  locations.  Before  adding  these 
terminals  the  model  could  be  run  to  determine  the  impact  to 
other  system  parameters.  The  increased  terminals  may  cause 
response  times  to  degrade  below  acceptable  standards  or  if 
the  ports  into  a  computer  is  not  increased  the  user  may  now 
wait  for  a  port  instead  of  a  terminal. 


Summary 

Chapter  Three  has  presented  the  conceptualization  of 
the  AFIT  network  model  followed  by  identification  of  the 
input  variables  and  translation  into  the  SLAM  simulation 
language.  The  structure  of  each  module  was  presented. 
Chapter  Four  presents  the  summary,  r  icommendations  for 
future  research,  and  conclusion. 


a  *  fViVj  . 


Chapter  4 

SUMMARY,  RECOMMENDATIONS,  AND  CONCLUSIONS 


The  primary  objective  of  this  research  was  to  provide 
an  initial  validated  dynamic  system  model  of  the  AFIT  ADP 
network.  After  the  model  is  implemented,  it  will  represent 
the  AFIT  network  with  its  users  and  should  be  used  for 
understanding  and  evaluation  of  the  AFIT  workload  and 
hardware.  Before  this  implementation  can  occur  further 
research  is  necessary.  Recommendations  for  this  implementa¬ 
tion  research  is  presented  in  the  recommendations  for  future 
research  section  in  this  chapter.  Before  presenting  those 
recommendations,  a  brief  summary  of  the  model  is  presented. 

Model  Summary 

A  hybrid  simulation  methodology  was  used  to  develop  the 
model  of  the  AFIT  network.  This  section  summarizes  the 
conceptualization  and  structure  of  the  workload  model  and 
network  model  which  when  combined  form  the  system  model. 

Workload  Model.  The  workload  model,  as  modeled  in  this 
research,  consisted  of  a  categorization  of  the  users  and  a 
characterization  of  the  workload  necessary  to  drive  the 
network  model.  The  categorization  of  the  users  consisted  of 
defining  the  different  requirements  of  the  users,  the  input 
locations  available  to  the  users,  and  other  behavioral  and 
outside  influences.  Workload  characterization  consisted  of 
defining  a  resource  vector  or  parameters  required  to  drive 
the  network  model. 
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Four  categories  of  users  were  defined  —  student, 
faculty,  administration,  and  software  support.  Within  these 
categories,  more  specific  sub-categories  were  defined. 
These  categories  led  to  the  development  of  the  input  files 
required  to  define  the  AFIT  workload.  Behavioral  and 
environmental  factors  included  the  growing  influx  of 
personal  computers,  interactive  or  batch  selection,  and 
selection  of  computers. 

The  characterization  of  the  workload  consisted  of 
defining  a  resource  vector  X.  Essentially,  this  vector 
defined  the  boundaries  or  level  of  detail  that  the  workload 
model  provided.  Since  the  objective  of  this  research  was  to 
provide  a  model  which  may  easily  be  utilized  to  evaluate 
different  hardware  configurations,  the  vector  could  not 
provide  specific  job  parameters  such  as  actual  CPO  time, 
disk  I/Os  and  so  forth.  Therefore,  the  vector  was  defined 
to  specify  computer  desired,  job  class,  and  job  size.  The 
computer  required  also  included  the  option  of  choosing  any 
computer  resource  to  satisfy  the  demand.  The  job  classes 
and  job  sizes  define  the  CPO  time,  I/O  time,  and  memory 
requirements.  These  job  classes  and  sizes  will  need  to  be 
defined  by  cluster  analysis  as  described  in  Chapter  Two  and 
under  recommendations  for  future  research  in  this  chapter. 

The  input  to  the  model  was  defined  using  files  to 
describe  the  demands  placed  by  the  categories  of  users. 
Each  file  defined  the  network  input  location,  number  of 
users,  network  resource  demands,  and  the  external  factors  of 
personal  computers  and  interactive  or  batch  selection.  The 


inputs  are  then  transformed  into  arrival  rates  and  cumula¬ 
tive  frequency  distributions  to  drive  the  network  model. 
Lastly,  periodic  requirements  were  transformed  into  a 
separate  output  file. 

Network  Model.  The  AFIT  network  was  conceptualized  as 
consisting  of  three  types  of  resources  —  input  locations, 
computers,  and  printers.  These  resources  were  translated 
into  a  SLAM  ’network'  structure.  The  complex  interactions 
between  these  resources  and  the  job  arrivals  were  structured 
and  translated  into  a  SLAM  'discrete'  structure.  This 
division  will  allow  all  new  configurations  to  be  analyzed  by 
modifying  the  network  structure  and  the  input  variables  to 
the  discrete  structure. 

The  inputs  to  the  network  model  are  the  files  created 
by  the  workload  model  and  the  input  variable  file.  The 
files  created  by  the  workload  model  consist  of  arrival  rates 
and  cumulative  frequency  distributions  for  all  of  the 
network's  input  locations.  The  workload  model  also  creates 
a  periodic  arrival  file  which  allowed  jobs  to  be  input  to 
the  network  directly.  The  input  variable  file  defines  the 
mean  and  standard  deviation  of  various  distributions 
required  to  drive  the  simulation;  probability  mass  functions 
when  routing  decisions  need  to  be  made;  and  various  tables 
to  define  the  complex  relationships  between  the  computers, 
locations,  and  printers. 

The  model  may  execute  over  the  time  period  of  a  school 
quarter  or  any  week(s)  within  the  quarter.  A  statistic 


collection  interval  is  specified  at  execution.  This  inter¬ 
val  controls  when  the  SLAM  summary  report  is  printed  and  the 
statistical  arrays  cleared.  The  SLAM  summary  report,  CPU 
utilizations,  and  I/O  utilizations  are  the  only  output 
generated. 

Complete  verification  and  an  initial  validation  was 
performed.  Verification  of  the  model  was  achieved  by  the 
inclusion  of  network  monitor  statements  and  a  built  in  'log' 
function  within  the  discrete  structure.  The  optional  'logs' 
made  be  output  during  execution  to  follow  the  flow  of  all 
events.  These  trace  mechanisms  allowed  all  types  of  events 
to  be  traced  through  the  network  model.  All  modules  were 
executed.  Initial  validation  of  the  model  was  acheived  by 
the  use  of  the  above  trace  mechanisms  and  a  reevaluation  of 
the  real  system.  All  events  flow  and  processes  were  as 
originally  conceptualized  and  designed. 

Recommendations  for  Future  Research 

The  model  developed  in  this  research  provides  a 
theoretical  structure  for  the  AFIT  workload  and  network. 
Successful  implementation  of  the  model  will  require 
additional  research.  Data  needed  by  the  model  was 
identified.  However,  this  data  does  not  exist  in  an 
appropriate  form  required  by  the  model.  Initial  validation 
of  the  model  was  performed  when  possible  but  again  data 
needed  to  completely  validate  the  model  was  not  available. 
Stages  six  through  ten  of  Shannon's  eleven  stages  (page  19) 
remain  to  be  completed. 
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The  last  stages  of  the  model  development  cannot  be 
completed  until  a  broader  data  collection  plan  is 
implemented  at  APIT.  The  model  is  just  one  part  of  a 
complete  capacity  planning  program.  Basically,  capacity 
planning  is  a  performance  oriented  approach  to  data 
processing  management  in  which  user  satisfaction  is  the  most 
critical  factor  (Ref  5:6).  An  overview  of  capacity  planning 
and  the  current  situation  at  AFIT  is  presented.  Lastly, 
enhancements  to  the  model  are  suggested. 

Capacity  Planning.  The  system  developed  is  just  one 
component  of  an  ADP  capacity  planning  effort.  Capacity 
planning  is  a  methodology  which  encompasses  a  set  of  actions 
all  geared  to  defining  workload  characterizations, 
forecasting  workloads,  current  and  future  performance,  and 
availability  of  resources  (Ref  10:55).  Although  it  was  not 
the  intent  of  this  research  to  provide  a  review  of  the 
current  capacity  planning  efforts  at  AFIT,  a  review  is 
necessary  for  the  later  successful  implementation  of  the 
system  model. 

Cortada  cateloged  the  areas  that  good  and  comprehensive 
capacity  plans  generally  provide  management  as: 

1.  A  description  of  a  system's  current 
performance.  This  includes  utilization  of 
individual  and  combined  performance  of  all 
hardware  and  software. 

2.  An  analysis  of  the  current  workload's  charac¬ 
teristics,  which  can  then  be  the  basis  for 
forecasting  future  needs. 

3.  A  study  of  future  workload  requirements  and 
configurations  necessary  to  support  them. 

4.  An  analysis  of  response  and/or  turnaround  time 
for  various  applications.  A  study  of  the  time 
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it  takes  a  particular  resource  to  do  a  set  of 
tasks . 

5.  A  means  for  predicting  the  future  performance 
of  a  configuration  of  hardware  and  software. 

6.  An  ongoing  process  for  providing  information 
about  the  system  to  management,  so  that  there 
are  no  surprises  and  no  degradation  of 
services. 

7.  A  means  of  indicating  clearly  to  non-DP 
management  how  well  MIS  managers  run  their 
departments.  Ultimately,  it  quantifies  the 
costs  and  benefits  of  competent  DP  management. 

8.  A  way  to  highlight  the  problems  caused  when 
users  and  DP  personnel  do  not  participate 
continually  and  jointly  in  capacity  planning. 
(Ref  10:55-56) 


The  best  method  to  gain  knowledge  of  the  current 
system's  performance  and  perform  analysis  of  workload 
characteristics  is  by  use  of  special  programs  or  accounting 
packages.  These  programs  collect  data  which  describe  the 
amount  of  resources  consumed  by  or  in  support  of  each  appli¬ 
cation  program  run  on  a  computer.  Three  traditional  users 
of  accounting  data  have  been  ADP  managers,  programmers,  and 
computer  performance  evaluators  (Ref  16:61). 

APIT  ADP  managers  seldom  utilize  any  of  the  information 
gathered  from  the  computer  systems.  The  VAX  11/780  package 
collects  massive  amounts  of  data  about  the  lengths  of 
sessions  to  the  number  of  disk  I/Os.  However,  none  of  this 
information  is  processed  unless  a  specific  question  is  asked 
or  a  problem  arises.  ASD  provides  AFIT  with  a  daily  usage 
report  and  a  monthly  summary  for  the  CYBER  systems.  These 
reports  are  not  utilized.  The  CREATE  and  Harris  500 
systems'  accounting  data  has  not  been  collected  since  April 
1983.  New  operating  systems  installed  were  incompatible 


with  existing  accounting  packages.  Of  the  data  collected 
before  April,  the  meaning  of  the  reports  is  not  available. 

A  key  to  being  able  to  characterize  the  users'  require¬ 
ments  on  these  systems  is  the  account  number.  If  an  account 
number  is  assigned  to  each  course,  thesis,  and  so  forth  the 
resource  requirements  of  each  category  could  be  determined. 
Current  AFIT  policy  is  to  assign  an  account  number  for  each 
AFIT  student  on  the  VAX  11/780.  The  student  uses  the  same 
number  for  all  work  performed.  CYBER  account  numbers  are 
assigned  as  requested,  but  again  it  is  unknown  what  type  of 
work  is  being  performed. 

A  part  of  capacity  planning  effort  is  systems 
performance  management  (Ref  10:56).  Systems  performance  is 
responsible  for  making  the  currert  configurations  work  well. 
It  is  the  main  source  of  input  into  capacity  planning. 
Capacity  planning  is  concerned  with  understanding  what  the 
resources  are  and  predicting  what  will  be  needed  i:  the 
future.  Performance  management  is  responsible  for  three 
areas.  First,  objectives  should  be  established  for  the 
various  workloads  handled  by  the  system.  For  example, 
response  time  for  each  transaction  should  be  3  seconds  or 
less,  or  batch  turnaround  should  be  30  minutes.  By 
comparing  actual  system  performance  against  these 
objectives,  a  basis  for  future  tuning  is  provided.  AFIT  ACD 
has  not  established  any  objectives.  Second,  priorities  for 
types  of  jobs  going  through  the  systems  should  be 
established.  Establishing  priorities  allows  the  processing 
of  the  most  critical  workload  during  peak  hours.  AFIT  does 


not  establish  priorities  for  their  computers.  ASD 
establishes  batch  priorities  on  the  CYBER.  Lastly, 
utilization  of  the  various  components  of  the  system  should 
be  gathered.  This  involves  capturing  information  on 
resource  utilization  using  the  accounting  packages  described 
and  other  software  or  hardware  monitors. 

In  summary,  no  formal  structured  capacity  planning 
effort  exists  at  AFIT.  Only  after  implementation  of  an 
effort  will  complete  validation  of  the  AFIT  network  system 
model  be  possible.  Prediction  of  future  performance  of 
workload  and  various  hardware  configurations  cannot  be  made 
until  the  current  systems  performance  and  workload  are 


known. 

Model  Enhancements.  The  models  developed  in  this 
research  provide  a  theoretical  structure  of  the  AFIT  ADP 
network.  These  models,  like  any  software  effort,  are  never 
totally  complete  and  there  are  several  areas  in  which 
further  research  would  be  useful.  These  enhancements  are 
not  necessary  for  a  successful  implementation  of  the  models 
although  some  may  be  helpful  for  validation. 

Currently,  the  workload  model  provides  the  inputs  re¬ 
quired  to  drive  the  network  model.  Aside  from  the  printing 
of  the  input  files,  arrival  rates,  and  cumulative  frequency 
distributions,  no  other  calculations  or  output  are  provided. 
The  model  could  be  enhanced  to  provide:  1)  calculations  of 
the  total  workload  requirements  with  respect  to  school, 
computers,  job  classes  and  so  forth;  2)  analysis  of  personal 
computer  usage  data  collected;  3)  reports  defined  and  pro- 


duced  to  represent  the  arrival  rates  and  distributions  in  a 
form  more  easily  understood. 

The  outputs  of  the  network  model  currently  consist  in 
the  format  provided  by  the  SLAM  summary  report  and  CPU 
utilizations.  While  this  output  contains  all  the  informa¬ 
tion  required  for  an  analysis  effort,  the  format  is  not 
desireable.  The  report  contains  a  multitude  of  statistics 
which  may  not  be  used.  Again,  reports  could  be  defined  to 
reduce  the  data  and  present  it  in  a  format  more  easily 
understood.  Another  possibility,  besides  the  printed 
output,  is  creating  a  output  file  which  contains  all  the 
data  desired.  This  data  could  then  be  used  for  report 
generation  or  statistical  analysis  using  other  programs  such 
as  Statistical  Package  for  Social  Sciences  (SPSS)  (Ref  17). 

Conclusion 

In  conclusion,  the  objective  of  this  research  was 
accomplished.  A  theoretical  model  of  the  AFIT  network  has 
been  developed  and  initial  verification  and  validation  was 
accomplished.  As  part  of  a  complete  capacity  planning 
effort,  the  model  can  provide  additional  information  for  ADP 
managers  to  use  in  conjunction  with  intuition,  judgement, 
and  experience  to  evaluate  policies,  requirements,  and  added 
resources.  Additionally,  the  model  is  useful  as  an  aid  to 
gain  a  better  understanding  of  the  overall  network  system. 
Finally,  recommendations  have  been  made  for  further  research 
to  integrate  the  model  into  a  complete  capacity  planning 
effort. 
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The  AFIT  workload  modal  creates  output  files  containing 
arrival  rates  and  cumulative  frequency  distributions  -for 
subsequent  use  by  the  network  modal.  These  output  -filas 
characterize  the  workload  for  each  network  input  location  at 
AFIT.  The  arrival  ratas  are  provided  for  each  hour  over  the 
course  of  a  school  quarter  while  the  cumulative  frequency 
distributions  are  provided  for  each  week.  A  quarter  con¬ 
sists  of  ten  weeks  of  classes  and  one  week  of  finals  for  a 
total  of  eleven  weeks. 

The  workload  is  characterized  by  a  transformation  of 
the  nine  input  files  describing  the  AFIT  workload  into  the 
output  files  described  above.  These  input  files  are  divided 
into  four  categories  —  student,  facul ty/adnini strati on, 
software  development,  and  periodic  requirements.  For  the 
first  three  categories,  arrival  rates  and  cumulative  freq¬ 
uency  distributions  are  calculated  and  processed  separately. 
For  the  last  category,  an  output  file  of  actual  requirements 
is  created.  All  of  the  groups  batch  requirements  are 
combined  to  calculate  the  output  files  for  the  batch 
locations. 

Configuration  and  control  of  the  model  is  provided 
through  the  use  of  a  factor  file  and  FORTRAN  namelist 
inputs.  Most  variables  are  assigned  default  values.  The 
factor  file  contains  all  distributions  used  by  the  model 
while  the  namelist  inputs  control  the  dimension  of  the 
arrays  describing  the  computers,  work  classes,  work  sizes, 
and  number  of  input  locations. 


Fi  I  mum  Formal 


CRSHRKx  1  Student  course  requirements. 

THRWRKx  I  Student  thesis  requirements. 

STUDWPx  2  Student  word  processing  requirements. 

FACRCHx  1  Faculty  research  requirements. 

FACTHPx  2  Faculty  word  processing  requirements. 

DAYREQx  3  Daily  acini ni strat i on  requirements. 

SFTDEVx  3  Software  development  shop  requirements. 

MEKREQx  4  Meekly  periodic  requirements. 

PERREQx  4  Quarterly  periodic  requirements. 

x  *  unique  identifier 
Table  A. 1  Workload  Input  Files. 

This  user's  guide  used  in  conjunction  with  the  Workload 
Model  Maintenance  Guide  provides  all  the  data  required  to 
operate  the  model.  Descriptions  of  all  the  input  files  are 
provided.  The  input  variables  description  and  format  are 
provided.  Lastly,  the  CDC  CYBER  job  control  inputs,  error 
conditions,  and  limitations  of  the  model  are  reviewed. 

Inputs 

Input  files  to  the  AFIT  workload  model  consist  of  nine 
files  to  describe  the  workload,  a  factor  file  to  initialize 
variables,  and  namelist  inputs.  The  nine  input  files  are 
listed  in  Table  A.l.  The  file  names  consist  of  seven 
characters.  The  first  six  characters  remain  constant.  The 
seventh  character  is  an  unique  identifier  provided  by  the 
user  as  described  later.  The  format  number  identifies  each 
file's  format  as  described  below. 

Formal  J.  Input  Files.  CRSMRK,  THSWRK ,  and  FACRCH  for¬ 
mat  description  is  provided  in  Table  A. 2.  The  input  loca¬ 
tion  is  an  integer  field  which  identifies  the  workload's 


v 

Desrriptinn 

Lalues 

I  1,  IX 

Input  Location 

1-3 

1 

1- Building  129 

2- Building  648 

3- Bui 1  ding  641 

A8,  IX 

Description 

any  characters 

4A1,  IX 

Quarters  Offered 

blank  or  'X' 

k': 

412 

Users  per  Quarter 

integer 

Hill 

11<  IX, 3A1) 

Work  per  Meek 

ppp 

Computer 

Computer  ID  Table 

Class 

Class  ID  Table 

Size 

Size  ID  Table 

F9.2 

PC  Factor 

8. 8-1. 8 

F9.2 

Batch  Factor 

8. 8-1. 8 

Example!  1  EE4.91  X  X  21  829  6  CA1  HE 4  AB9...UC2  8.19  8.28 
Table  A. 2  Format  1  Input  File  Description. 


r.nmniitT*  Classes  Sizes 


rnMPhu 

CAMP  ID 

CL.ASM1 

g  asiD 

BI7M1S 

SI 7 I PS 

CYBER 

C 

BASIC  L6 

A 

<28K 

1 

CREATE 

R 

DBMS 

B 

28K-48K 

2 

HAR988 

H 

SPSS 

C 

48K-188K 

3 

VAX 

V 

SLAM 

D 

188-288K 

4 

ANY 

A 

CANNED 

E 

288-388K 

9 

UNDEF 

MORPPROC 

F 

OUR  388K 

6 

Table  A. 3  Computer,  Class,  and  Size  Descriptions. 

expected  input  location.  The  description  field  is  for 
identification  only  and  is  not  used  by  the  model.  An  ' X ' 
should  be  input  for  each  school  quarter  that  the  workload  is 
applicable.  The  number  of  users  per  quarter  must  be  identi¬ 
fied  for  each  quarter  identified  above.  The  workload  ex¬ 
pected  per  week  is  identified  by  alpha  codes  for  the 
computers,  classes,  and  sizes.  Table  A. 3  identifies  the 
current  descriptions  and  codes.  The  PC  factor  ranges  from 
8.8  to  1.8  and  identifies  t  *  portion  of  the  workload  re- 


y, 


Format 


I  1,  IX 

Input  Location 

1-3 

1-Bui 1  ding 

125 

2-Bui 1 di ng 

640 

3-Bui 1 di iq 

641 

A2 

Quar  ter 

MI,  SP,  SU,  FA,  or  AL 

15 

Users  per  Quarter 

integer 

F6.3 

Percent 

0. 0-1.0 

11F4. 1 

Load  per  Meek 

0. 0-1.0 

F5.2 

PC  Factor 

0. 0-1.0 

Example:  2  MI 

750  0.75  0.15  0.11... 

0.25 

Table  A. 4  Format  2  Input  File  Description. 

quirements  specified  to  be  satisfied  by  the  use  of  personal 
computers.  Lastly,  the  batch  factor  also  ranges  from  0.0  to 
1.0  and  identifies  the  portion  of  the  workload  requirements 
specified  to  be  satisfied  by  use  of  batch  inputs  instead  of 
interactive. 

EncmaJt  2  Input  ELLes.  STUDWP  and  FACTMP  format 
description  is  provided  in  Table  A. 4.  Each  record  identi¬ 
fies  a  word  processing  requirement  for  each  quarter.  The 
input  location  and  PC  factor  are  the  same  as  format  !.  The 
quarter  is  identified  by  a  two  character  ID  followed  by  the 
number  of  users  expected.  The  percent  field  is  used  to 
identify  the  percentage  of  users  which  will  probably 
utilize  the  network's  word  processing  capabilities.  The 
load  per  week  values  range  from  0.0  to  1.0  and  are  the 
percentage  of  the  probable  users  expected  to  require  word 
processing  capabilities  for  each  week. 

Format  3  Input  Files.  SFTDEV  and  DAYREQ  format 
description  is  provided  in  Table  A. 9.  These  files  describe 


Format 


1 1,  IX 


A 10,  IX 
A2,  IX 
A 1 
A 1 
A1 
14 

F6.3 


Input  Location 


Description 
Quarter 
Computer 
Class 
Si  ze 

Number  of  Users 
Batch  Factor 


1-3 

1- Building  123 

2- Bui 1  ding  440 

3- Bui 1  ding  441 
any  characters 

WI ,SP,SU,FA,  or  AL 
Computer  ID  Table 
Class  ID  Table 
Size  ID  Table 
i n  teger 
0. 8-1.0 


Example:  3  PROJECT  X  SP  CD5  12  0.10 


Table  A. 5  Format  3  Input  File  Description, 


the  daily  constant  requirements  needed  by  the  software 
development  shop,  faculty,  and  acini  ni  strati  on .  Again  the 
input  location  and  description  fields  are  the  same  as  format 
1.  The  quarter  and  number  of  users  are  identified  like 
format  2  files.  The  computer,  class,  and  size  are  identi¬ 
fied  by  the  alpha  codes  in  Table  A. 3.  Lastly,  the  batch 
factor  must  be  provided. 

EocmaJt  4  Input  Files.  NEKREQ  and  PERREQ  format 
description  is  provided  in  Table  A. 4.  These  files  describe 
the  periodic  requirements  which  will  be  output  to  file  CNST. 
The  input  location  for  this  format  corresponds  to  the  input 
location  of  the  network  model.  The  description,  quarter, 
computer,  class,  and  size  are  identical  to  the  files  in 
format  3.  For  NEKREQ  the  day  number  is  the  day  of  the  week 
< 1 -Mon day .. .7-Sun day)  that  input  is  expected.  For  PERREQ 


the  day  number  is  the  day  of  the  quarter  (1-77)  that  input 


Eqcm  1 


12,  IX 

Input  Location 

1-10 

A10,  IX 

Description 

any  characters 

A2,  IX 

Quar  ter 

HI , SP , SU , FA ,  or  AL 

A1 

Compu  ter 

Computer  ID  Table 

A1 

Class 

Cl  ass  ID  Tabl e 

A1 

Size 

Size  ID  Table 

15 

Day  Number 

integer 

F8.4 

Time  of  Day 

real 

Example:  10  SCH  RPT  A  AL  HF6  76  22.5 

Table  A. 6  Format  4  Input  File  Description. 

is  expected.  The  time  of  day,  expressed  in  hours,  is  the 
time  input  is  expected. 

Eacior.  Ei la .  A  factor  file  (FACTOR)  must  be  created  to 
initialize  the  model 's  distributions  and  factors.  This  file 
is  illustrated  in  Table  A.?.  The  first  record  contains  the 
NUMCPU,  NUMCLS,  and  NUMSIZ  defined  by  the  FACTOR  file.  The 
daily  distributions  of  the  student,  facul  ty/acfcnini  strati  on , 
and  batch  requirements  are  provided  next.  The  hourly  dis¬ 
tributions  for  the  three  types  of  locations  are  provided. 
Next,  a  SESFACT,  PCFACT,  and  R UNFACT  for  each  class  and  size 
is  provided.  SESFACT  is  the  expected  number  of  interactive 
sessions  required.  PCFACT  identifies  whether  a  personal 
computer  can  be  used.  R UNFACT  is  the  expected  number  of 
batch  runs  required  for  each  requirement.  There  must  be 
NUMCLSXNUMSIZ  records. 

BAFACT  identifies  whether  the  computer  has  batch  capa¬ 
bility.  There  must  be  NUMCPU  records.  HPFACT  contains  the 
word  processing  distributions  over  the  computers  by  size. 
There  must  be  NUMCPU- 1  records  —  word  processing  is  not 
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10X,7F10.4 
10X,7F  10.4 
10X , 7F 10 . 4 

3< 10X , 8F8 . 4) 
3< 10X , 8F8 . 4) 
3< 10X,8F8.4) 

10X , 3F 10.4 


NUMCPU ,  NUMCLS  ,NUMSI  Z 

XXXX  DAILY  DISTRIBUTIONS  XXX 

DAYSST  (Student) 

DAYSAD  (Faculty/Admin) 

DAYSBA  (Batch) 

XXX  HOURLY  DISTRIBUTIONS  XXX 
HOURST  (Student) 

HOURAD  (Faculty/Admin) 

HOURBA  (Batch) 

XXX  FACTORS  XXX 

CLS  SIZE  SESFACT  PCFACT  RUNFACT 


1 0X , F 10 . 4 


XXXX  BATCH  FACTOR  XXX 
CPU  BAFACT 


10X, 10.4 


XXXX  MORD  PROCESSING  FACTORS  XXX 
CPU  SIZ  WPFACT 


Table  A. 7  FACTOR  File  Format. 


distributed  to  the  'any'  computer.  Table  A. 8  is  an  example 
of  a  FACTOR  file. 

Nanai i st  Inputs.  Three  namelist  inputs  may  be  provided 
to  change  the  model's  default  values.  The  first,  FLAGM1, 
must  be  input.  This  record  defines  the  printer  output 
desired  by  the  use  of  'flags'.  These  flags  and  outputs  are 
described  in  the  Output  section  of  this  guide.  SETDIM  is 
set  to  true  if  a  namelist  RDDIM  follows.  SETMiS  is  set  to 
true  if  namelist  RSNMS  is  included. 


XXIX  DAILY  DISTRIBUTION  XXXX 


4.13 

4.24 

4.24 

4.24 

(.21 

4.16 

4.24 

4.24 

BATCH 

1.23 

4.15 

4.15 

4.15 

<XX  HOURLY  DISTRIBUTIONS  XXX 

Enli'Jlii'- 

4.12 

4.41  4.41 

4.41 

4.41 

4.44 

4.44  4.47 

4.47 

4.11 

4.48 

4.45  4.45 

4.43 

4.43 

4.44 

4.44  4.44 

4.44 

4.44 

4.45 

4.15  4.14 

4.14 

4.14 

4.14 

4.44  4.42 

4.41 

4.44 

BATCH 

4.44 

4.44  4.44 

4.44 

4.44 

4.42 

4.43  4.14 

4.15 

4.14 

4.21 

4.14  4.43 

4.42 

4.44 

XXX  FACTORS  XXX 

A  1 

3.4 

4.14 

5.4 

A  2 

3.4 

4.14 

5.4 

A  3 

3.4 

4.14 

5.4 

A  4 

3.4 

4.14 

5.4 

A  5 

3.4 

4.14 

3.4 

A  4 

3.4 

4.14 

3.4 

B  1 

3.4 

4.14 

3.4 

B  2 

3.4 

4.14 

3.4 

B  3 

3.4 

4.14 

3.4 

B  4 

3.4 

4.14 

5.4 

B  b 

3.4 

4.14 

5.4 

B  4 

3.4 

4.14 

5.4 

C  1 

3.4 

4.14 

5.4 

C  2 

3.4 

4.14 

3.4 

C  3 

3.4 

4.14 

5.4 

C  4 

3.4 

4.14 

5.4 

C  3 

3.4 

4.14 

5.4 

C  4 

■  a 

3.4 

■ 

4.14 

■ 

5.4 

• 

■  • 

•  • 

F  4 

• 

e 

3.4 

• 

• 

4.14 

• 

5.4 

F  3 

3.4 

4.14 

3.4 

F  4 

3.4 

4.14 

5.4 

XXX  BATCH  FACTOR  XXX 


CYBER  1.1 

CREATE  l.B 

HAR  3N  l.i 

SSC  M 

ANY  1.1 

XXX  MQRO  PROCESSING  FACTORS  XXX 


CYBER 

4.42 

4.42 

4.42 

4.42 

CREATE 

4.44 

4.44 

4.44 

4.44 

HAR  544 

4.43 

4.43 

4.43 

4.43 

WAX  11/784 

4.13 

4.15 

4.15 

4.15 

Table  A.8  Exaaplt  of  FACTOR  Input  File 


Uar  i  ahi  a  Value 


NUMLOC 

NUMCLS 

Nlf-WKS 

NUMBA 

NUMOTH 

WPCLAS 


NUMCPU 

NUMSIZ 

NUMST 

NUMAD 

QTRNUM 


Table  A. 9  RDDIM  Namelist  Variables. 


The  RDDIM  namelist  input  can  be  used  to  reset  any  of 
the  model '%  dimensions.  These  variables  and  the  de-faults 
are  listed  in  Table  A. 9.  Please  see  the  data  dictionary  -for 
a  description  of  these  varables.  The  RSMiS  namelist  state¬ 
ment  is  used  to  change  any  o-f  the  computer,  class,  and  size 
names  or  IDs  listed  in  Table  A. 3  or  any  o-f  the  location 
names.  Additionally,  the  input  (INFLID)  and  output  (GTFLID) 
file  unique  identifiers  may  be  changed.  The  default  value 
for  the  input  files  is  •T* .  The  default  value  for  the 
output  files  is  "C“.  Namelist  statements  must  begin  in 
column  2. 

An  example  of  the  namelist  input  isi 


IcFLAGNM  ECHOFO-.T.,  WRTOITT-.T. ,  SETDIhN.T.,  SETNMS* .T .  8c END 
8c RDDIM  NUMCPU-4,  QTRNUPH3  8c END 

SrRSNMS  C0MPtsM<4>«'  IBM  360  ',  C0MPID<4>*'  I  *  8c END 


In  this  example,  the  input  files  will  be  echoed  < ECHOFG)  and 
the  output  files  created  <WRTOUT) .  RDDIM  (SETDIM)  and  RSNMS 
(SETNMS)  namelist  inputs  are  provided.  The  number  of  compu¬ 
ters  <NUMCPU)  is  changed  to  4  and  the  quarter  number  is 
changed  to  3  < QTRNUM) .  A  computer  name  and  ID  is  changed. 
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STUDxxy 


Student  interactive  hourly  arrival  rates  and 
frequency  distributions. 


ADtHxxy 

Facul  ty/Ac*nini  strati  on  interactive  arrival 
rates  and  frequency  distributions. 

OTHRxxy 

Other  (software  development)  interactive 
arrival  rates  and  frequency  distributions. 

BTCHxxy 

Batch  hourly  arrival  rates  and  frequency 
distributions. 

CNSTxxy 

Periodic  requirements. 

xx  -  Quarter  ID 
y  -  Unique  Alpha 

Table  A. 10  Horkload  Output  Files. 

Output'* 

All  outputs  are  controlled  by  input  namelist  variables. 
These  output  'flags'  must  be  set  to  true  if  output  is 
desired.  The  FLAGNi  namelist  input  indicates  the  desired 
output.  Three  flags  < ECHOFG ,  TABFG,  FRQARV)  control  printed 
output.  The  HRTOUT  flag  indicates  whether  output  files  are 
created. 

Pc  in  ted  QuipuJt.  The  ECHOFG ,  TABFG,  and  FRQARV  flags 
indicate  whether  printed  output  is  desired.  If  ECHOFG  is 
set  to  true,  all  input  file  records  used  to  calculate  the 
workload  are  printed.  If  TABFG  is  set  to  true,  the  FACTOR 
file  values  are  printed.  If  FRQARV  is  set  to  true,  the 
arrival  rates  and  cumulative  frequency  distributions  for 
each  input  location  are  printed. 

Fi 1 «t .  Five  output  files  are  created  if  the 
HRTOUT  flag  is  set  to  true.  Each  output  file  name  consists 

A-H 


of  seven  characters.  The  first  four  identify  the  type  of 
location.  The  next  two  identify  the  quarter.  The  last  is 
an  unique  identifier  provided  by  the  user.  These  files  are 
described  in  Table  A. 10. 


.Tf»h  Se±up 

The  model  currently  runs  on  the  ASD  CYBER  computer. 
The  job  may  be  entered  through  interactive  batch  or  regular 
batch  input.  Typical  job  statements  arei 


MCD ,T70 , 1 0 108 , CM 140080 .  T 123456 , MCDERMOTT 
C0M1ENT .  ATTACH  INPUT  FILES 
ATTACH  f  FACTORT , FACTORT . 

ATTACH , CRSWRKT , CRSMRKT . 

ATTACH , THSWRKT , THSWRKT . 

ATTACH  t  FACRCHT , FACRCHT . 

ATTACH ,  STUDWPT ,  STUDWPT . 

ATTACH , FACTWPT  , FACTWPT . 

ATTACH , SFTDEVT , SFTDEVT . 

ATTACH , DAYREQT , DAYREQT . 

ATTACH , MEKREQT , MEKREQT . 

ATTACH , PERREQT , PERREOT . 

COMMENT.  GET  SPACE  FOR  OUTPUT  FILES 
REQUEST , STUDWIC , XPF . 

REQUEST , BTCHM I C , XPF . 

REQUEST ,  ADtt*II  C f  XPF . 

REQUEST , OTHRMI C , XPF . 

REQUEST , CNSTWIC , XPF . 

COMMENT.  ATTACH  WORKLOAD  MODEL  AND  EXECUTE 
ATTACH ,  WKLD , WKLD . 

LOAD.WKLD. 

MKLD. 

COMMENT.  CATALOG  OUTPUT  FILES 
CATALOG ,  STUDWIC , , RP-999 . 

CATALOG , BTCHWI C , , RP-999 . 

CATALOG  vADMhM  I C , , RP-999 . 

CATALOG , OTHRWIC , , RPw?99 . 

CATALOG , CNSTW I C , , RP-999 . 

XEOR 

(Namelist  inputs) 
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ECCOe 


Minimum  error  checking  is  provided  by  the  model .  The 
model's  value  is  totally  reflected  by  the  accuracy  of  the 
workload  descriptions  and  the  FACTOR  file.  Careful  atten¬ 
tion  should  be  paid  to  these  files'  creation.  The  only 
error  conditions  detected  by  the  model  are:  factor  file 
does  not  match  input  dimensions)  computer  ID  not  found) 
class  ID  not  found)  and  size  ID  not  found. 

: imi iaiiflM 

The  workload  model  capacity  is  set  by  FORTRAN  parameter 
statements  as  defined  in  the  Workload  Model  Maintenance 
Guide.  Currently  the  model  can  handle  up  to  three  input 
locations  for  each  type,  a  maximum  of  eleven  weeks  to  the 
quarter,  and  a  maximum  of  six  computers,  classes,  and  sizes. 
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The  AFIT  workload  mod*)  is  a  top-down  program  which 
cr*at*s  th*  output  -files  -for  subsequent  use  by  the  network 
model.  Th*  model  is  written  in  FORTRAN  Version  S  and  is 
currently  running  on  ASD's  CYBER  computer  in  batch  mod*. 

The  objective  o-f  this  guide  is  to  review  the  documenta¬ 
tion  standards  and  provide  the  general  structure  of  the  AFIT 
workload  model.  Model  modification  areas  are  also  briefly 
covered.  P!ease  refer  to  the  Workload  Model  User's  Guide 
(Appendix  A)  for  a  description  of  all  input  and  output 
files. 

flnrnmentatinn  Standard* 

Th#  bulk  of  the  detailed  documentation  on  th*  AFIT 
workload  model  resides  within  th*  coded  modules.  A  specific 
header  was  used  for  this  documentation.  This  standard  calls 
for  the  following  header  information  on  each  module: 

C  Name: 

C  Modu 1 e  Number : 

C  Function: 

C  Input  Parameters: 

C  Output  Parameters: 

C  Common  Blocks/Variables  Used: 

C  Common  Blocks/Variables  Changed: 

C  Modu 1 es  Called: 

C  Calling  Modules: 

Besides  th*  header  information,  comment  statements  for  each 
module  are  included  within  the  body  of  the  module. 

Each  module's  structure  followed  a  specific  standard. 


All  DO  loops  and  IF  THEN  ELSE  bodies  were  indented.  FORTRAN 
statement*  for  each  module  follow  th#  following  order: 


SUBROUTINE  or  FUNCTION  statement 

PARAMETER  statements 

Local  declarations 

COMMON  statements 

The  body 

RETURN  statement 

FORMAT  statements 

END  statement 

Also  included  within  the  model  is  a  BLOCK  DATA  module.  This 

module  includes  every  common  block  and  sets  all  de-fault 

values  except  logical  print  -flags. 

The  data  dictionary  is  included  in  Appendix  C.  This 

dictionary  also  -followed  a  standard  format  as  follows: 

Name :  T ype : 

Common  Block: 

Description : 

Initial ized  by: 

Used  by: 

The  items  in  the  data  dictionary  include  all  common 
variables  and  names  for  PARAMETER  constants. 

general  Structure 

As  previously  mentioned,  the  AFIT  workload  model  has  a 
top-down  structure.  At  the  top  of  this  structure  is  the 
MAIN  module  (Figure  B.i).  Table  B.l  lists  all  of  the 
modules  with  a  short  description  and  the  page  number  of 
source  code  in  Appendix  D.  First,  the  module  clears  the 
TOTAL  arrays  which  are  used  to  tabulate  the  total  number  of 
users  for  each  type  of  input  location.  MAIN  initializes  the 
model  by  calling  CONFIG  which  reads  the  namelist  inputs. 
CONFIG  calls  LDFACT  to  read  the  FACTORx  file  and  will  call 
PRTTAB  to  print  the  FACTORx  file.  The  modules  CALSTD, 
CALADM,  CALOTH,  and  BATCH  are  called  to  process  the  student, 
f acul ty/adninistrative,  software  development,  and  batch 


Figure  B. 1  Workload  (MAIN)  Hierarchy. 

requirements  respectfully.  Finally  CONREQ  is  called  to 
process  the  periodic  requirements. 

Student,  f acul ty/adfoinistrative,  software  development, 
and  batch  requirements  are  all  calculated  by  calling  the 
same  set  of  common  modules  as  shown  in  Figures  B.2  through 
B.9.  Each  box  represents  a  module.  Within  each  box  is  the 
module's  name,  file  processed  in  quotation  marks,  and  the 
module  number.  Please  refer  to  the  user's  guide  for  format 
and  descriptions  of  the  input  and  output  files. 

Module  REGWRK  processes  all  reqular  requirements  such 
as  student  course  work  (format  1  files).  Module  WPWORK 
processes  all  word  processing  files  (format  2).  Module 


s 


H 


ISi 


Module 

MnHn 1 m 

Pay 

hiumbec 

Number 

BATCH 

1.5 

D-2 

BLOCK 

l.B 

D-3 

CALADM 

1.3 

D-5 

CALOTH 

1.4 

D-4 

CALSTD 

1.2 

D-7 

CLRTOT 

l.C.  1 

D-8 

CLSERR 

1.C.2 

D-9 

CLSFIL 

l.C. 3 

D-9 

CONFIG 

1.1 

D- 10 

CONREQ 

1.4 

D-ll 

DAYS FT 

l.C. 4 

D- 12 

DISTWP 

l.C. 9 

D-13 

DSTVJRK 

l.C. 4 

D-14 

FRQHDR 

l.C. 7 

D-15 

OPNERR 

l.C. 8 

D-14 

OPNINP 

l.C. 9 

D-14 

OPNOUT 

l.C. 18 

D-17 

PERIOD 

1.4.2 

D-17 

PRTHDR 

l.C. 11 

D-18 

PRTTAB 

1.1.2 

D-28 

RDERR 

l.C. 12 

D— 23 

RDFACT 

1.1.1 

D-23 

RDFMT1 

l.C. 13 

D-25 

RDFMT2 

l.C. 14 

D-24 

RDFMT3 

l.C. 15 

D— 24 

RDFMT4 

l.C. 14 

D-28 

REGMRK 

l.C. 17 

D-29 

SRTNRT 

1.4.3 

D-30 

MEEKLY 

1.4.  1 

D-31 

MPMORK 

l.C. 18 

D— 32 

MRTFIL 

l.C. 19 

D-33 

FIGCLS 

l.F.  1 

D— 35 

FIGCPU 

1.F.2 

D-34 

FIGSIZ 

l.F. 3 

D-34 

Table  B.l 

Processes  ell  batch  locations. 

BLOCK  DATA 

Calculates  facu)  ty/acknini  strati  on 
requirements. 

Calculates  the  software  development 
requirements. 

Calculates  the  student  requirements. 
Clears  the  total  arrays. 

Processes  all  close  file  errors. 

Cl oses  all  files. 

Reads  the  input  configuration. 
Processes  all  constant  requirements. 
Processes  all  format  3  files. 
Distributes  all  word  processing 
requirements  into  the  total  arrays. 
Distributes  format  2  and  format  3 
requirements  into  the  total  arrays. 
Prints  the  arrival  and  frequency 
file  headers. 

Processes  all  close  file  errors. 
Opens  all  input  files. 

Opens  all  output  files. 

Processes  the  PERIOD  file. 

Prints  the  echo  input  header. 

Prints  the  input  file  tables. 
Processes  all  read  errors. 

Reads  the  input  FACTOR  file. 

Reads  format  1  files. 

Reads  format  2  files. 

Reads  format  3  files. 

Reads  format  4  files. 

Processes  the  format  I  files. 

Sorts  and  writes  the  constant 
requirements. 

Processes  the  MEEKLY  file. 

Processes  the  word  processing  files. 
Calculates  and  writes  the  arrival 
rates  and  cumulative  frequency 
distributions  output  files. 

Returns  class  integer. 

Returns  computer  integer. 

Returns  size  integer. 


Figure  B.5  Batch  Processing  Hierarchy. 

DAYSFT  processes  both  daily  requirements  and  software 
development  requirements  (format  3>  files.  FRQHDR  is  called 
to  print  header  information  if  the  arrival  rates  and  cumula¬ 
tive  frequency  distributions  are  to  be  printed.  Lastly, 


CONREQ 


Figure  B .6  Periodic  Requirements  Processing  Hierarchy. 

OPNOUT,  MRTFIL,  and  CLSFIL  are  called  to  open  the  output 

-files)  calculate  and  output  the  arrival  rates  and  frequency 

distributions)  and  close  the  output  file  respectfully.  If 

the  output  file  is  not  to.be  created,  only  MRTFIL  is  called. 

* 

Figure  B.6  illustrates  the  constant  requirements 
(CONREQ)  processing.  OPNOUT  is  called  to  open  the  input 
files  as  they  are  processed.  Modules  MEEKLY  and  PERIOD  are 


called  to  process  the  weekly  requirements  and  periodic  re¬ 
quirements  respectfully  (format  4  files).  Both  of  these 


modules  call  PRTHDR  if  the  input  files  are  echoed.  RDFMT4 
actually  reads  the  files.  Finally,  OPNOUT,  SRTWRT,  and 
CLSFIL  are  called  to  open  an  output  file;  sort  and  output 
the  requirements;  and  close  the  output  file  respectfully. 
If  the  output  file  is  not  created,  only  SRTVJRT  is  called. 

Additions  or  deletions  of  input  files  to  the  mode) 
would  occur  in  these  top  level  modules.  For  input  file 
addition,  the  appropriate  calls  to  the  lower  level  modules 
would  need  to  be  added.  For  deletion,  the  calls  to  the 
lower  level  modules  would  be  deleted.  In  both  cases,  modi¬ 
fications  to  the  FRQHDR  and  PRTHDR  modules  would  need  to  be 
made. 

Figures  B.7  through  3.9  illustrate  the  different  format 
file  processing.  REGMRK ,  WPWORK,  and  DAYSFT  process  format 
I  through  3  files  respectfully.  All  three  modules  call 
OPNINP  to  open  the  input  files.  If  the  input  files  are  to 
be  echoed,  PRTHDR  is  called  to  print  an  appropriate  header 
for  each  input  file.  Modules  RDFMT1 ,  RDFMT2,  and  RDFMT3 
read  the  records  of  each  file.  Module  DSTWRK  distributes 
each  record  requirements  into  the  'total'  arrays  for  both 
format  1  and  format  3  files.  Module  DISTVIP  is  called  to 
distribute  word  processing  requirements  (format  2>  into  the 
'total'  arrays.  Any  modifications  made  to  the  input  file 
formats  will  required  modifications  in  these  modules. 


The  workload  modal's  capacity  is  set  by  the  FORTRAN 
parameter  statements.  To  increase  the  number  of  input  loca- 
tions,  computers,  classes,  sizes,  or  number  of  weeks  the 
appropriate  parameter  statement  must  be  modified  in  each 
module  it  appears.  The  data  dictionary  provides  a  cross 
reference  for  each  parameter. 


APPENDIX  C 

WORKLOAD  MODEL  DATA  DI CTI ONARY 


Nam#:  BAFACT<t**XCPU>  Type:  REAL 

Common  Block:  FACTXX 

Description:  Identifies  whether  computer  has  batch 
capabi 1 i ties. 

1.0  -  Yes 
8.0  -  No 

Initialized  by:  RDFACT 
Used  by:  PRTTAB 


Name:  CLASID<MAXCLS> 

Common  Block:  IDS 

Description:  Morkload  class  ID  codes. 
Initialized  by:  BLOCK  DATA/CONFIG 
Used  by:  PRTTAB, FI GCLS 


Type:  CtttRX  1 


Name:  CLASNKMAXCLS) 

Common  Block:  NAMES 

Description:  Description  of  class  codes. 
Initialized  by:  BLOCK  DATA/CONFIG 
Used  by:  PRTTAB, RDFMT3-4.WRTF I L 


Type:  CHARX8 


Name:  COMPID<tttXCPU> 

Common  Block:  IDS 
Description:  Computer  ID  codes. 
Initialized  by:  BLOCK  DATA/CONFIG 
Jsed  by:  PRTTAB, FI GCPU 


Type:  CHARX I 


Name:  COMPNM(MAXCPU) 

Common  Block:  NAMES 
Description:  Computer  descriptions. 
Initialized  by:  BLOCK  DATA/CONFIG 
Used  by:  PRTTAB, RDFMT3-4,WRTF I L 


Type:  CHARX 8 


Name:  DAYSAD<7)  Type:  REAL 

Common  Block:  DAYSXX 

Description:  Attnini station  workload  distribution  over  the  week 

Initialized  by:  RDFACT 

Used  by:  CALADM , CALOTH , PRTTAB 


“  •  ”  ^  I 


!* 


Name:  INFLI D( 10) 

Common  Block:  FI LIDS 
Description:  Unique  input 


Type:  CHARS  I 


-file  suffixes. 


Initialized  by:  BLOCK  DATA/CONFIG 

Used  by:  CALADM , CALOTH , CALSTD , CONFIG , CONREQ 


Name:  LOCNMS<fttXLOC> 

Common  Block:  NAMES 
Description:  Location  names. 
Initialized  by:  BLOCK  DATA/CONFIG 
Used  by:  RDFMT 1-3, WRTFI  L 


Type:  CHARS 8 


Name:  MAXCPU  Type:  PARAMETER 

Common  Block:  N/A 

Description:  Maximum  number  of  computers  allowed. 

Used  by:  MAIN y BATCH y BLOCK  DATA , CALADM , CALOTH , CALSTD , CLRTOT , 
CONFIG y DSTMRK , DI STWP , PERI OD y PRTTAB , RDFACT , RDFMT  1-4 
SRTWRT , WEEKLY y WRTFI L y F I GCLS , FI GCPU , FI GSI Z 


Name:  MAXCLS  Type:  PARAMETER 

Common  Block:  N/A 

Description:  Maximum  number  of  workload  classes  allowed. 
Used  by:  MAIN  y  BATCH , BLOCK  DATA ,  CALADM ,  CALOTH ,  CALSTD ,  CLRTOT 
CONFIG , DSTMRK ,  DI  STWP y PERI  OD , PRTTAB , RDFACT  y RDFMT 1 - 
SRTWRT , WEEKLY , WRTF I L , F I GCLS  y  FI GCPU  y  F I GSI Z 


Name:  MAXLOC  Type:  PARAMETER 

Common  Block:  N/A 

Description:  Maximum  number  of  different  locations  allowed. 
Used  by:  MAIN y BATCH y BLOCK  DATA , CALADM y CALOTH y CALSTD y CLRTOT y 
CONF I G ,  DSTMRK ,  D I  STWP ,  PER  I  OD ,  PRTTAB  y  RDFMT  1  -4 ,  SRTWRT 
WEEKLY , WRTFI L  y  FI GCLS  y  FI GCPU  y  FI GSI Z 


A- 


Types  PARAMETER 


Names  PAXSIZ 
Common  Blocks  N/A 
Descriptions  Maximum  number  of  workload  memory  sizes  allowed. 
Used  bys  MAIN, BATCH, BLOCK  DATA , CALADM , CALOTH , CALSTD , CLRTOT , 
CONFIG , CSTWRK , DI STWP , PERIOD , PRTTAB , RDFACT , RDFMT 1-4 , 
SRTWRT , MEEKLY ,WRTFI L , FI GCLS , FI GCPU, FI GSI Z 


Names  MAXWKS  Types  PARAMETER 

Common  B1 ock s  N/A 

Descriptions  Maximum  number  of  weeks  allowed. 

Used  by i  MAIN, BATCH, BLOCK  DATA , CALADM , CALOTH , CALSTD , CLRTOT , 
CONFIG , DSTWRK , DI STWP , PERIOD , RDFMT 1-4 , REGWRK , SRTWRT , 
WEEKLY , WPWORK , WRTF I L , F I GCLS , F I GCPU , F I GS I Z 


Names  NCRDR  Types  INTEGER 

Common  Blocks  UNITS 

Descriptions  Input  (card)  input  number. 

Initialized  bys  BLOCK  DATA 
Used  bys  CONFIG 


Names  NINPUT  Types  INTEGER 

Common  Blocks  UNITS 

Descriptions  Input  files  unit  number. 

Initialized  bys  BLOCK  DATA 

Used  bys  CONREQ , DAYSFT , OPN I NP, RDFACT, RDFMT  1-4, REGWRK, WPWORK 


Names  NOUT  Types  INTEGER 

Common  B1 ock  s  UNITS 

Descriptions  Output  files  unit  number. 

Initialized  bys  BLOCK  DATA 

Used  bys  CLSFIL,OPNOUT,SRTWRT,WRTFIL 


Names  NPRNT  Types  INTEGER 

Common  Blocks  UNITS 

Descriptions  Printer  unit  number. 

Initialized  bys  BLOCK  DATA 

Used  bys  CLSERR , CLSF I L , FRQHDR , OPNERR , PRTHDR , PRTTAB , RDERR , 
RDFMT  l -4 , SRTWRT , WRTF I L , F I GCLS , F I GCPU , F I GS I Z 


Types  INTEGER 


Name:  NUMAD 
Common  Block:  OIMEN 
Description:  Number  of  adminstative/f acul i ty  locations. 
Initialized  by:  BLOCK  DATA/CONFIG 
Used  by :  CALADM 


Name:  NUMBA  Type:  INTEGER 

Common  Block:  DIMEN 

Description:  Number  of  batch  locations. 

Initialized  by:  BLOCK  DATA/CONFIG 
Used  by:  BATCH 


Name:  NUMCLS  Type:  INTEGER 

Common  Block:  DIMEN 
Description:  Number  of  classes. 

Initialized  by:  BLOCK  DATA/CONFI 6 

Used  by:  CLRTOT , PRTTAB , RDFACT ,WRTFI L , FI GCLS 


Name:  NUMCPU  Type:  INTEGER 

Cannon  Block:  DIMEN 

Description:  Number  of  computers. 

Initialized  by:  BLOCK  DATA/CONFIG 

Used  by:  CLRTOT.DISTWP, PRTTAB, RDFACT .WRTFIL, FI GCPU 


Name:  NUMLOC  Type:  INTEGER 

Common  Block:  DIMEN 

Description:  Number  of  locations. 

Initialized  by:  BLOCK  DATA/CONFIG 
Used  by:  CLRTOT 


Name:  NUMOTH  Type:  INTEGER 

Common  B1  ock :  DIMEN 

Description:  Number  of  other  (software  development) 

1 ocations. 

Initialized  by:  BLOCK  DATA/CONFIG 
Used  by:  CALOTH 


Type:  INTEGER 


Name i  NUMSIZ  Type:  I 

Common  Block:  DIMEN 

Description:  Number  of  workload  sizes. 

Initialized  by:  BLOCK  DATA/CONFIG 

Used  by:  CLRTOT , DI STWP , PRTTAB , RDFACT ,WRTF I L , F I GSI Z 


Name:  NUMST 
Common  B1 ock :  DIMEN 

Description:  Number  of  student  locations. 
Initialized  by:  BLOCK  DATA/CONFIG 
Used  by:  CALSTD 


Type:  INTEGER 


Name:  NUPMKS  Type:  II 

Common  B1 ock :  DIMEN 
Description:  Number  of  weeks. 

Initialized  by:  BLOCK  DATA/CONFIG 

Used  by:  CLRTOT , DAYSFT , REGWRK , MEEKLY , WPWORK , WRTF I L 


Type:  INTEGER 


Name:  OTFLID  Type:  1 

Common  Block:  FI LIDS 

Description:  Unique  output  file  suffix. 
Initialized  by:  BLOCK  DATA/CGNFIG 

Used  by:  BATCH ,  CALADM ,  CALO~  H , CALSTD, CONF I G.CONREQ 


Type:  CWRIl 


Name:  PERI*1S<  18)  Type:  CtttRX8 

Common  Block:  NAMES 

Description:  Periodic  location  names  (corresponds  to  Network 
Simulation  Model). 

Initialized  by:  BLOCK  DATA/CONFIG 
Used  by:  RDFWT4 


Name:  PCFACT<MAXCLS,hMXSIZ>  Type:  REAL 

Common  Block:  FACTXX 

Description:  Factor  which  indicates  whether  workload  for 
each  class  and  size  is  capable  of  being 
performed  by  a  personnal  computer. 
Initialized  by:  RDFACT 
Used  by:  PRTTAB , DSTMRK 


Name:  QTRNMS<5>  Types  CHAR* 2 

Common  Block:  QTRDEF 

Description:  Quarter  names  <WI , SP,SU,FA,AL> . 

Initialized  by:  BLOCK  DATA/CONFIG 

Used  by:  BATCH , CALADM , CALOTH , CALSTD , CONREQ , PRTHDR , RDFMT2-4 


Name:  QTRNUM  Type:  INTEGER 

Common  Block:  DIMEN 

Description:  Quarter  number  of  the  run  <  1-WI ,  2-SP,  3-WU, 
4-FA> . 

Initialized  by:  BLOCK  DATA/CONFIG 

Used  by:  BATCH, CALADM, CALOTH, CALSTD, CONREQ, PRTHDR, RDFMT 1-4 


Name:  RUNFACT<MAXCLS,t"ttXSIZ>  Type:  REAL 

Common  B1 ock :  FACTXX 

Description:  Number  o-f  batch  runs  required  per  user  for  each 
class  and  size. 

Initialized  by:  RDFACT 
Used  by:  PRTTAB,WRTFIL 


Name:  SESFACT<mXCLS,rttXSI2>  Type:  REAL 

Common  Block:  FACTXX 

Description:  Number  of  interactive  sessions  required  per 
user  for  each  class  and  size. 

Initialized  by:  HDFACT 
Used  by:  PRTTAB.WRTFIL 


Name:  SIZIDS<MAXSIZ) 

Common  Block:  IDS 
Description:  Memory  size  codes. 
Initialized  by:  BLOCK  DATA/CONFIG 
Used  by:  PRTTAB,FIGSIZ 


Type:  CtttRX  1 


Nam*:  TABFG  Type:  LOGICAL 

Common  Block:  FLAGS 

Description:  Flag  which  indicates  whether  input 

parameters/var iabl es  are  to  be  printed. 
Initialized  by:  CONFIG 
Used  by:  CONFIG 


Name:  TOTBAT<MAXLOC,httXWKS,hAXCPU,l**XCLS,  Type:  REAL 
MAXSIZ) 

Common  Block:  TOTALS 

Description:  Array  used  to  tabulate  the  number  of  users  of 
batch  input  locations  by  location,  week, 
computer,  class  size. 

Description:  x 
Initialized  by:  MAIN 
Used  by:  MAIN, BATCH 


Name:  TOTINT<W»CLOC,r*»<MKS(M*XCPU,hKXCLS,  Type:  REAL 

raxsiz> 

Common  Block:  TOTALS 

Description:  Array  used  to  tabulate  the  number  of  users  of 
interactive  input  locations  by  location,  week, 
computer,  class  and  size. 

Description:  x 
Initialized  by:  MAIN 

Used  by:  MAIN ,  CALADM ,  CALOTH ,  CAL  STD ,  D I STWP ,  PER  I OD ,  SRTWRT , 
MEEKLY 


Name:  TOTPC(MAXLOC,MAXMKS,MAXCPU,MAXCLS,  Type:  REAL 

mxsiz> 

Common  Block:  TOTALS 

Description:  Array  used  to  tabulate  the  number  of  users  of 

personal  computers  by  location,  week,  computer, 
class  and  size. 

Initialized  by:  MAIN 
Used  by:  MAIN,DISTMP 


Name:  TYPLOC(MAXLOC)  Type:  CHAR* 8 

Common  Block:  NAMES 

Description:  Types  of  input  locations. 

Initialized  by:  BLOCK  DATA/CONFIG 
Used  by:  PRTTAB 


Name:  WPCLAS 
Common  Block:  DIMEN 

Description:  Word  processing  class  number. 
Initialized  by:  BLOCK  DATA/CONFIG 
Used  by:  DISTWP 


Type:  INTEGER 


Name:  WPFACT<MAXCPUtMAXSIZ> 


Type:  REAL 


Common  B1 ock :  FACTXX 

Description:  Cummulative  -frequency  distribution  used  to 

distribute  word  processing  load  by  computer  and 
size. 

Initialized  by:  RDFACT 
Used  by:  DISTWP, PRTTAB 


Name:  WRTOUT  Type:  LOGICAL 

Common  B1 ock :  FLAGS 

Description:  Flag  which  indicates  whether  output  -files  are 
created. 

Initialized  by:  CONFIG 

Used  by:  BATCH , CALADM , CALOTH , CALSTD , COMF1  G , CONREQ , SRTWRT , 
WRTFIL 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


c  x 

C  Names  WORKLOAD  (MAIN)  X 
C  Module  Number:  1.0  X 
C  Function:  WORKLOAD  reads  input  -files  describing  the  AFIT  work-  X 
C  I  iad  and  creates  output  -files  -for  use  by  the  system  X 
C  network  model .  X 
C  Input  Parameters:  none  X 
C  Output  Parameters:  none  X 
C  Common  Blocks/Variables  Used:  TOT AL S/TOT INT ,TOTBAT, TOTPC  X 
C  Common  Blocks/Variables  Changed:  TOTAL S/TOT INT, TOT BAT, TOTPC  X 
C  Modules  Called:  C  .RTOT, CONFIG ,CALAOM,CALSTD,CALOTH, BATCH, CONREQ  X 
C  Cal  I  ing  Modules:  */A  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

PROGRAM  MAIN< INPUT .OUTPUT ,TAPE5“INPUT,TAPE6® OU  3UT) 

PARAMETER  (MAXL0C*3,MAXWKS*1 1 ,MAXCPU»6,MAXCLS=6,tWXSIZ=6) 

C 

CXXXX  COMMON  BLOCKS 

C0M1GN/T0TALS/  TOTINT<MAXLOC,MAXWKS,MAXCPU,MAXCLS,MAXSIZ) , 

♦  TOTBAT(MAXLOC,MAXWKS,HAXCPU,MAXCLS,MAXSIZ> , 

♦  TOTPC<MAXLOC,MAXWKS,MAXCPU,MAXCLS,MAXSIZ) 

C 

CXXXX  READ  IN  INPUT  PARAMETERS  AND  FACTOR  FILE 
CALL  CONFIG 
C 

CXXXX  CLEAR  THE  TOTAL  ARRAYS 
CALL  CL RTOT (TOT I NT) 

CALL  CLRTOT (TOTBAT) 

CALL  CLRTOT (TOTPC) 

C 

CXXXX  CALCULATE  THE  STUDENT  WORKLOAD 
CALL  CALSTD 
CALL  CLRTOT (TOT INT) 

CALL  CLRTOT (TOTPC) 

C 

CXXXX  CALCULATE  THE  FACULITY/ADMIN  WORKLOAD 
CALL  CALAOM 
CALL  CLRTOT (TOTINT) 

CALL  CLRTOT (TOTPC) 

C 

CXXXX  CALCULATE  THE  SOFTWARE  DEVELOPMENT  WORKLOAD 
CALL  CALOTH 
C 

CXXXX  CALCULATE  THE  BATCH  WORKLOAD 
CALL  BATCH 
C 

CXXXX  READ  AND  FORMAT  THE  PER I 00 I C  REQUIREMENTS 
CALL  CONREQ 
END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
C  X 

C  Name:  BATCH  X 

C  Module  Number:  1.9  X 


C  Function:  Calls  modules  to  create  the  batch  arrival  and  -frequency* 


C  Files.  X 
C  Input  Parameters!  none  X 
C  Output  Parameters:  none  X 
C  Common  Blocks/Variables  Used:  DAYSXX/DAYSBA  X 
C  DIMEN/ QTRNUM ,  NUMBA  X 
C  FILIDS/OTFLID  X 
C  FLAGS/FRQARV , WRTOUT  X 
C  HOURXX/HOURBA  X 
C  QTRDEF/QTRMiS  X 
C  TOTAL  S/TCJT BAT  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  FRQHDR , OPNF I L ,  WRTF I L , CLSF I L  X 
C  Cal  1 ing  Modules:  MAIN  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  BATCH 

PARAMETER  (MAXL0O3  tMX WKS=  1 1  ,MAXCPU=4  ,mXCLS»6 , tWXSIZ=d> 

C 

CHARACTER  0UTFI.X7 
C 

CXXXX  COMMON  BLOCKS 

COMMON/ DAYSXX/  OAYSST < 7) ,DAYSAD<7) ,DAYSBA(7) 

INTEGER  QTRNUM  f MPCLAS 

COMMON/D  I  MEN/  NUMLOC ,  NUMCPU ,  NUMCLS ,  NUMS I Z ,  NUMWKS , NUMST ,  NUMBA , 

+  NUMAD.NUMOTH, QTRNUM, WPCLAS 

CHARACTERX 1  INFLID,0TFLIQ 
COMtON/FILIDS/  INFLIDt 10) ,0TFLID 
LOGICAL  ECHOF0 ,TABFG , FRQARV , WRTOUT 
COMMON/FLAGS/  ECHOFG ,TABFG , FRQARV , WRTOUT 
COMMON/ HOURXX/  H0URST<24) ,H0URAD(24) ,H0URBA(24) 

CHARACTERX  2  QTRNMS 
COMMON/ QTRDEF/  QTRNMS < 5) 

CQMMQN/TOTALS/  TOT INT< MAXLOC  ,MAXWKS  ,MAXCPU  .MAXCLS  ,hWXSI  Z)  , 

♦  TQTBAT (MAXLOC, MA)Q4KSIMAXCPUIMAXCLS,MAXSIZ)  , 

+  TOTPC(MAXLOC ,MAXNKS ,MAXCPU , MAXCLS ,MAXSI Z) 

C 

CXXXX  OPEN  FILE  AND  WRITE  HEADER  IF  FRQARU 

OUTF I L-'BTCHV/QTRWiSt  QTRNUM)  <  :2)//0TFLID< :  1) 

IF  (FRQARU)  CALL  FRQHDR (OUTF I L, 4) 

C 

CXXXX  IF  NRTOUT  THEN  OPEN  FILE  -  CALL  NRTFIL 
IF  (WRTOUT)  THEN 

CALL  OPNOUT(OUTFIL,/U/) 

CALL  WRTFIL(T0TBAT,NUMBA,DAYSBA,H0URBA,3> 

CALL  CLSFIL(OUTFIL) 

ELSE 

GALL  WRTF I L( TOT BAT , NUMBA , DAYSBA , HOURBA , 3) 

ENDIF 

RETURN 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
c  X 

C  Name:  BLOCK  DATA  X 


C  Module  Number:  l.B 

C  Function:  Defines  *11  caramon  blocks  and  set  variable  defaults. 

C  Input  Parameters:  N/A 
C  Output  Parameters:  N/A 
C  Common  Blocks/Variables  Used:  All 

C  Common  Blocks/Variables  Changed:  See  Data  Statements. 

C  Modules  Called:  N/A 
C  Cal  1 ing  Modules:  N/A 
C 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

BLOCK  DATA 

PARAMETER  <tttXL0C=3,MA»KS=l  l,MAXCPU=4,MAXCLS=4,tttXSI2**6) 

C 

CHARACTERX 1  COMPI D , CLAS I D , S I Z I DS , INFL I D , OTFL I D 
CHARACTERX8  CLASNM , CQMPtM , LOOMS ,  S I ZWS .TYPLOC , PERWS 
CHARACTERX 2  QTRNMS 
C 

INTEGER  QTRNUM , WPCLAS 
C 

LOGICAL  ECHOFG ,  TABFG , FRQARV , WRTOUT 
C 

COMMON/FLAGS/  ECHOFG , TABFG  ,FRQARV ,HRTOLTT 
COMMON/DIMEN/  NUMLOC ,NUMCPU,NUMCLS ,NUMSIZ ,NUMWKS , 

+  NUMST  ,NUMBA ,NUMAD  ,NLMOTH ,  QTRNUM , WPCLAS 

COMON/DAYSXX/  DAYSST(7>  ,DAYSAD(7)  ,  DAYS  BA  <  7) 

COMMON/ HOURXX/  HOUR  ST  (24) ,H0URAD(24) ,H0URBA(24) 

COMMON/FACTXX/  PCFACT(tWXCLS,MAXSIZ> ,SESFACT(MAXCLS,MAXSIZ) , 

♦  RUNFACT (MAXCLS ,MAXSI 2) ,BAFACT(MAXCPU) ,WPFACT(MAXCPU,MAXSIZ> 
COMMON/F I L I DS/  INFLID( 18) , OTFL ID 

COtMON/QTRDEF/  QTRNMS  (5) 

COMMON/T OT ALS/  TOT INT(MAXLOC,MAXWKS,MAXCPU, MAXCLS , MAXSI Z)  , 

♦  TOTBAT (MAXLOC , MAM4KS , MAXCPU , MAXCLS ,  MAXS I Z ) , 

♦  TOTPC (MAXLOC ,MAXNKS , MAXCPU , MAXCLS ,MAXSIZ) 

COMMON/IDS/  COMPI D(MAXCPU) ,CLASID (MAXCLS) ,SIZIDS(MAXSIZ) 
C9MGN/NAMES/  CLAShM  (MAXCLS)  ,C0MPtf1(  MAXCPU)  ,  LOOMS  (MAXLOC)  , 

♦  SIZNMS(MAXSIZ)  , TYPLK(MAXLOC)  ,PERhMS(  18) 

COMMON/UNITS/  NCR DR, NPRNT.N INPUT, NOUT 

C 

CXXXX  DATA  STATEMENTS 
C 

DATA  NUMLOC .NUMCPU , NUMCLS ,NUMSI Z/3 , 5 , 4 , 3/ 

DATA  NUM4KS, NUMST ,NUMBA,NUMAD,NUMOTH/l  1,3,3,3, 1/ 

DATA  QTRNUM, HPCLAS/ 1,4/ 

DATA  INFLID,0TFLID/1BX'T'#'C'/ 

DATA  CLASID/'A'f'B','C'f'D','E'f'F'/ 

DATA  CLASf'M/' BASIC  LG', 'DBMS  '/SPSS  ','SLAM  ', 

♦  'CAMMED  ','WORDPROC'/ 

DATA  COMPID/'C','R','H'f'V','A','  '/ 

DATA  COMPtM/'CYBERS  'CREATE  ' ,'HAR  588  ' ,'SSC  ', 

♦  'ANY  ','UNDEF  '/ 

DATA  NCROR  ,NPRNT  ,NINPUT  ,N0UT/5 ,4,7,8/ 

DATA  LOOMS/'  BLD  125  ' ,'BLD  448  ' , '  BLD  441'/ 

DATA  GTRNM8/'NI' ,'SP' ,'SU'f'FA' ,'AL'/ 

DATA  SIZIDS/'1'.'2'.'3'.'4'.'5'.'4'/ 


9 


<5 


OATA  SIZNMS/'  <  28K  ','29  -  48K'/48-180K  '  /  188-208K' 

+  '288-388KV0UR  388KV 

DATA  TYPLOC/' STUDENT  '  /BATCH  '  , " FAC/ADMN  V 
DATA  PERN1S/'  STUD  125  '  /STUD448  '/STU0441  '/ADW125 

♦  'ADftW48  '  , ' ADMN64 1  ' /SOFT  125  '  ,  'BATCH  125'  /8ATCH448' , 

♦  'BATCH441'/ 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


C  X 
C  Nan* :  CALADM  X 
C  Module  Number:  1.3  X 
C  Function:  Performs  all  calls  to  subroutines  to  read  input  files  X 
C  for  facul i ty/adsin  workload  and  create  the  arrival  X 
C  and  frequency  fifes.  X 
C  Input  Parameters:  none  X 
C  Output  Parameters:  none  X 
C  Common  Blocks/Variabl *s  Used:  DAYSXX/DAYSAD  X 
C  DIMEN/QTRNUM , NUMAO  X 
C  FILIDS/INFLID,OTFLID  X 
C  FLAGS/FRQARV , WRTOUT  X 
C  HOURXX/HOURAD  X 
C  GTRDEF/QTRNMS  X 
C  TOTALS/TOT I NT  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  REGHRK,DAYSFT ,WPWORK,W?TFIL,FRQHDR,OPNFILfCLSFIL  X 
C  Calling  Modules:  MAIN  X 
C  X 


CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

c 

SUBROUTINE  CALADM 

PARAMETER  (MAXL0O3  .MAXWKS- 1 1  ,MAXCPl>-4,MAXCLS-6,MAXSIZ«6> 

C 

CHARACTER  FILEhtiX7,OUTFILX7 
C 

CXXXX  COMMON  BLOCKS 

COMMON/ DAY SXX/  DAYSST<7) ,DAYSAD<7) ,DAYSBA(7) 

INTEGER  GTRNUM , WPCLAS 

COMMON/D  IMEN/  NUMLOC  ,NUMCPU,NUMCLS ,  NUNS  I Z  ,NUMNKS  ,NUMST  ,NUMBA  , 

♦  NUMAD  ,NUM0TH ,  QTRNUM ,  WPCLAS 
CHARACTERX 1  INFLID,OTFLID 
COMMON/FI LIDS/  INFLIDI 18) ,OTFLID 
LOGICAL  ECHOFG ,TABFG , FROARV , WRTOUT 
COMMON/FLAGS/  ECHOFG ,TABFG , FRQARV , WRTOUT 
COMiON/HOURXX/  HOURST<24) fHOUFWO<24> ,H0URBA(24) 

CHARACTERX  2  QTRT+tS 

COMMON/QTRDEF/  QTRNMS<5) 

COMMON/TOTALS/  TOTINT<MAXLOC,MAXNKS,MAXCPU,MAXCLS,MAXSIZ) , 

♦  TOTBAT(MAXLOC,MA)«KSfMAXCPUJMAXCLS,MAXSIZ) , 

♦  TOTPC(MAXLOC ,MAXNKS ,MAXCPU , MAXCLS ,MAXS I Z) 

C 

CXXXX  READ  AND  PROCESS  FACRCH  FILE 
FILEhf*'FACRCH'//INFLID<4> 

CALL  R£GMRK(FILENM,4) 

C 

CXXXX  READ  AND  PROCESS  FACUL I TY  HORD  PROCESSING  REQUIREMENTS 
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F I LEM1- '  FACTWP  V/ 1  NFL  I D  ( ?> 

CALL  WPW0RK(FILENM,9) 

C 

CXXXX  READ  AND  PROCESS  DAILY  REQUIREMENTS 
FILEN*»'DAYREQ'//INFLID(4> 

CALL  DAYSFT  ( F I  LEW ,  6) 

C 

CXXXX  OPEN  AND  WRITE  OUT  ADMIN  ARRIVAL  FILE 

OUTFIL='ADMN'//QTRNMS(QTRNlJM>  (  s2>//0TFLID<  :  1) 

IF  (FRQARV)  CALL  FRQHDR ( OUTFI L , 2) 

IF  <WRTOUT)  THEN 

CALL  OPNOUT (OUTFI Lj'U') 

CALL  WRTF I L (TOT INT , NUHAD , DAYSAD , HOURAD , 1) 

CALL  CLSFIL(OUTFIL) 

ELSE 

CALL  H RTF I L (TOT INT, NUHAD,DAYSAO, HOURAD, 1) 

ENDIF 

RETURN 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


C  X 
C  Nano  CALOTH  X 
C  Module  Number i  1.  X 
C  Function!  Performs  all  calls  to  subroutines  to  read  input  files  X 
C  for  software  development  workload  and  create  the  out-  X 
C  put  arrival  and  frequency  file.  X 
C  Input  Parametersi  none  X 
C  Output  Parameters!  none  X 
C  Canon  Blocks/Variables  Used!  DAY SXX/DAYSAD  X 
C  DIMEN/QTRNUH ,NUH0TH  X 
C  FILIDS/INFLID,OTFLID  X 
C  FLA6S/FRQARV , WRTOUT  X 
C  HOURXX/ HOURAD  X 
C  QTRDEF/QTRhMS  X 
C  TOTALS/TOT INT  X 
C  Common  Blocks/Variables  Changed!  none  X 
C  Modules  Called!  DAYSFT,  WRTFIL, FRQHDR, OPNFIL.CLSFIL  X 
C  Calling  Modules!  MAIN  X 
C  X 


CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

c 

SUBROUTINE  CALOTH 

PARAMETER  (MAXL0O3  ,MAXWKS- 1 1  ,MAXCPl>4  ,MAXCLS-6 ,MAXSI Z=6> 

C 

CHARACTER  FILEN1X7,0UTFILX7 
C 

CXXXX  COMMON  BLOCKS 

COMMON/ DAYSXX/  DAYS ST (7) ,DAYSAO(7) ,QAYSBA<7> 

INTEGER  QTRNUM,MPCLAS 

COttl ON/DI  MEN/  NUMLOC  ,NUMCPU  .NUMCLS  ,NUMS  I Z  ,NUMNKS  ,NUMST  ,NUMBA , 

♦  NUMAO  ,NUM0TH ,  QTRNUM ,  WPCLAS 

CHARACTERX 1  INFLID.OTFLID 
COMMON/FI LIDS/  INFLID( 10) ,0TFLID 
LOGICAL  ECHOFG , TABFG , FRQARV , HRTOUT 
COMMON/FLAGS/  ECHOFO , TABFG , FRQARV , WRTOUT 


COMMON/ HOURXX/  H0URST<24> ,H0URAD<24) ,H0URBA(24> 

CHARACTER* 2  QTRNMS 
COMMON/ GTRDEF/  QTRNMSO) 

COMMON/TOTALS/  TOTINT<MAXLQC,MAXWKS,MAXCPU,MAXCLS,MAXSIZ> , 

♦  TOT  BAT  (MAXLOC  ,MAM<iKS  ,MAXCPU , MAXCLS  ,MAXS  12)  , 

♦  TOTPC(MAXL OC,MAXW<S,MAXCPU, MAXCLS, MAXSIZ) 

C 

CXXXX  READ  AND  PROCESS  SFTDEV  FILE 
FILEhr*'SFTDEV'//INFLID<5) 

CALL  DAYSFT<FILEFM,3) 

C 

CXXXX  OPEN  AND  WRITE  OUT  OTHR  FILE 

OUTF I L- '  OTHR ' //QTRMiS ( QTRNUh) <  s  2) //OTFL I D<  s 1) 

IF  (FRQARV)  CALL  FRQHDR(OUTFIL,3) 

IF  (WRTOUT)  THEN 

CALL  OPNOUT (OUTFIL,  'U') 

CALL  HRTFIL(TOTINT ,NUMOTH,DAYSAD,HOURAD, 1) 

CALL  CL3FIL<OUTFlL> 

ELSE 

CALL  NRTFIL<TOTINT ,NllHOTH,DAYSAO,HOURAD,  I) 

END  IF 

RETURN 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
c 

C  Nun:  CAL  STD 
C  Module  Number!  1.2 

C  Functions  Perform  all  calls  to  subroutines  to  read  input  files 
C  to  determine  student  workload  and  create  the  arrival 

C  and  frequency  output  files. 

C  Input  Parameters!  none 
C  Output  Parameters!  none 

C  Common  Blocks/Variables  Used!  DAY SXX/ DAY SST 
C  DIMEN/QTRNUM,NUMST 

C  FILIDS/INFLIO.OTFLID 
C  FLAGS/ FRQARV , WRTOUT 

C  HOURXX/ HOURST 

C  QTRDEF/QTWtiS 

C  TOTALS/TOT  INT 

C  Common  Blocks/Variables  Changed!  none 

C  Modules  Called!  REGMRK,NPWORKfWRTFIL,FRQHDRfOPNFIL,CLSFIL 
C  Calling  Modules!  MAIN 
C 

exxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  CALSTD 

PARAMETER  (MAXLOC-3 ,MA»^KS» 1 1 ,MAXCPl*<4  ,MAXCLS-6 ,MAXSI Z*6) 

C 

CHARACTER  FILEhWX7>0UTFILX7 
C 

CXXXX  COMMON  BLOCKS 

COMMON/ DAYSXX/  DAYSST<7) ,DAYSAD(7) ,DAYSBA(7) 

INTEGER  QTRNUM,WPCLAS 

COMMON/DIMEN/  NUMLOC ,  NUhCPU  ,NUMCLS , NUNS  I Z ,  NlfMKS  ,NUMST  ,NUMBA , 

♦  NOMAD, NUM0TH»QTRNUM,HPCLA8 


^ 

Im  ^R  ^R  ^R  ^R  ^R  ^R  ^R  ^R  ^R  ^R  ^R  ^R  ^R 


CHARACTER* 1  INFLID.OTFLID 
COMMCN/FILIDS/  INFLID( 10)  .OTFLID 
LOGICAL  ECHOFG ,TABFG , FRQARV , WRTOUT 
COMMON/FLAGS/  ECHOFG ,TABFG , FRQARV , WRTOUT 
COMMON/ HOURXX/  H0URST(24) ,HOURAD(24) ,H0URBA<24> 

CHARACTER* 2  QTRNMS 
COMMON/ QTRDEF/  QTRhHS<5> 

C(M10N/T OT ALS/  TOTINT(hWXLOC,MAXWKS,MAXCPU,MAXCLS,MAXSIZ)  , 

♦  TOTBAT<MAXLOC,MA)«KS,MAXCPU,MAXCLS,MAXSIZ>  , 

♦  TOTPC(MAXLOC ,MAXWKS ,MAXCPU ,  MAXCLS ,MAXSI Z) 

C 

C**X*  READ  AND  PROCESS  STUDENT  COURSE  WORK 
FILEm='CRSWRK'//INFLID(  1) 

CALL  REGHRKIFILENM, 1) 

C 

C*XXX  READ  AND  PROCESS  STUDENT  WORD  PROCESSING 
F I  LEWt*  '  STUDMP ' // INFL I D  <  2> 

CALL  WPW0RK(FILENi,2) 

C 

CXXXX  READ  AND  PROCESS  STUDENT  THESIS  WORK 
F I LEKM- 'THSHRK  V/ INFL I D  <  3) 

CALL  REGMRK(FILEN1,3) 

C 

CXXXX  OPEN  AND  WRITE  STUDENT  ARRIVAL  RATES 

OUTFIL*'STUOV/QT»*1S(QTRNUM>  (  :2>//0TFLID<  s  1) 

IF  (FRQARU)  CALL  FRQHDRCOUTFIL, 1> 

IF  (WRTOUT)  THEN 

CALL  OPNOUT(OUTFIL,'U') 

CALL  WRTFIL(TOTINT,NUMST,DAYSST,HOURST, I) 

CALL  CLSFIL(OUTFIL) 

ELSE 

CALL  WRTFIL(TOTINT,NUMST  ,DAYSST  ,HOURST ,  1) 

ENDIF 

RETURN 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
c 

C  Nan* i  CLRTOT 
C  Module  Number i  l.C.l 

C  Function i  Clears  a  TOTAL  array  by  setting  all  values  to  O.t. 

C  Input  Paranetersi  TOTAL 
C  Output  Paranetersi  TOTAL 

C  Canon  BlodCs/Variables  Usedi  DIMEN/NUMLOC,NUtt*S,NUMCPU,NUMCLS, 

C  NUMSIZ 

C  Common  Blocks/Variables  Changed!  none  (directly) 

C  Modules  Called!  none 
C  Calling  Modules!  MAIN 
C 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  CLRTOT (TOTAL) 

PARAMETER  (MAXLOC-3 ,hWXWKS» I 1 , MAX CPU®* .MAXCLS-* ,MAXSI Z-6) 

C 

REAL  TOTAL<MAXLOCfMAXWKSfMAXCPU,MAXCLS,MAXSIZ> 


CXXXX  COTtiON  BLOCKS 

INTEGER  QTRNUM.WPCLAS 

COMMON/ D I MEN/  NUMLOC .NUMCPU ,  NUMCLS  ,NLJMS  I Z ,NUMWKS ,NUMST ,NUMBA , 

♦  NUMAO  ,NUMOTH ,  QfTRNUM , WPCLAS 

C 

CXXXX  CLEAR  TOTAL  ARRAY 
DO  Set  I*l,NUMLOC 

DO  4t6  J-l.NUMNKS 
DO  388  K= 1 ,NUMCPU 

DO  208  L=  1 , NUMCLS 

DO  188  M»1,NUMSIZ 

TOTAL<I , J,K,L,M)=0.8 
180  CONTINUE 

280  CONTINUE 

388  CONTINUE 

408  CONTINUE 
580  CONTINUE 
RETURN 
END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


C  X 
C  Nmi  CLSERR  X 
C  Module  Number t  1.C.2  X 
C  Function:  Prints  -filename  when  close  error  occurs  and  stops  X 
C  execution.  X 
C  Input  Parameters:  FILEN1  X 
C  Output  Parameters:  none  X 
C  Common  Blocks/Variables  Used:  UNITS/NPRNT  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  none  X 
C  Calling  Modules:  CLSFIL,DAYSFT,RDFACT,REGWRK,WPWORK  X 
C  X 


CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

c 

SUBROUTINE  CLSERR(FILENM) 

CHARACTER  FILENMX7 
C 

CXXXX  COMMON  BLOCKS 

COttiON/ UNITS/  NCRDR  ,NPRNT,N INPUT ,NOUT 
C 

WRITEINPRNT, 18)  FILEMi 
STOP 

10  F0RMAT<'  '/FILE  ',A7,'  CLOSE  ERROR') 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


C  X 
C  Name:  CLSFIL  X 
C  Module  Number:  1.C.3  X 
C  Function:  Closes  the  arrival  and  frequency  files  named  OUTFIL  X 
C  Input  Parameters:  OUTFIL  X 
C  Output  Parameters:  none  X 
C  Common  Blocks/Variables  Used:  UNITS/NOUT,NPRNT  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  CLSERR  X 
C  Calling  Modules:  CALAOM , BATCH , CALOTH , CALSTD , CQNREQ  X 


C  X 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

-JBROUTINE  CLSF I L (OUTFIL) 

CHARACTER  0UTFILX7 
C 

CXXXX  COMMON  BLOCKS 

COMON/ UNITS/  NCRDR  ,NPRNT  ,NINPUT  ,NOUT 
C 

ENDFILE(NOUT,ERR*100) 

CLOSE (NOUT, ERR* 200) 

RETURN 

100  HRITE(NPRNT, 1 10)  OUTFIL 
STOP 

110  FORMAT( '  FILE  *  ',A?,'  ENOFILE  ERROR') 

200  CALL  CLSERRt OUTFIL) 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXKX 

c 

C  Name:  CONFIG 
C  Module  Number i  1.1 
C  Function:  Reads  the  input  parameters 
C  Input  Paraneters:  none 
C  Output  Parameters:  none 

C  Cannon  Blocks/Variables  Used:  FILIDS/INFIL:D,OTFILID 
C  FLA6S/ECH0FG ,TABFG , FRQARV , WRTOUT 

C  UNITS/NCRDR 

C  Cannon  Blocks/Variables  Changed:  hay  change  cannon  blocks  DIMEN 
C  FILIDS,  FLAGS,  IDS,  and  NAMES  default  values. 

C  Modules  Called:  RDFACT,  PRTTAB 
C  Calling  Modules:  MAIN 
C 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  CONFIG 

PARAMETER  (MAXLOC-3 ,MA>MKS*  1 1  ,MAXCP)-4,MAXCLS*4,tttXSIZ-*) 

C 

LOGICAL  SETMiS.SETDIM 
C 

CXXXX  COMMON  BLOCKS 

INTEGER  <7TRNUM,MPCLAS 

COttQN/DIMEN/  NUMLOC  .NUMCPU  .NUMCLS  ,NUMS I Z  ,NUMNKS .NUMST  ,NUMBA , 

♦  NUMAD  ,NUMOTH ,  QTRNUM  ,MPCLAS 
CHARACTERX1  INFLID.OTFLID 
COMMON/FI LIDS/  INFLID( 10) ,0TFLID 
LOGICAL  ECHOFG ,TA6FG , FRQARU , WFTOUT 
COMMON/ FLAGS/  ECHOFG, TABFG,FRQARU,MRTOtT 
CHARACTERX 1  COMPID,CLASIO,SIZIDS 

COMMON/IDS/  COMPID(MAXCPU) ,CLAS1D(MAXCLS) ,SI2IDS(MAXSIZ) 
CHARACTERX 8  CLASfM,C(MPtM,LOOMS,SIZIMS,TYPLOC,PERNMS 
COMMON/NAMES/  CLAShM  ( MAXCLS)  .COMPtM(MAXCPU)  ,  LOOMS  ( MAXLOC)  , 

♦  SIZIMS(MAXSIZ)  ,TYPLOC  (MAXLOC)  ,PER>MS(  10) 

COWON/ UNITS/  NCRDR, NPRNT ,N INPUT ,NOUT 

C 

CXXXX  NAMELIST  DECLARATIONS 


mmmmwwmmwwmmmm 


NAMEL I ST/FLAGMV  ECHOFG , TABFG , FRQARV , WRTOUT , SE  D I H , SETNMS 
NAMEL I ST/RDDIM/  NUMLOC  ,NUMCPU  .NUMCLS  ,NUMSI  Z  ,NUtWKS  ,NUMST  ,NUMBA  , 
4  NUMAD  jNUMOTH ,  QTRNUM ,  WPCLAS 

NAMEL I ST/RSM1S/  CLASIM ,  CGMPM1 ,  LOOMS ,  SIZNMS ,  TYPLOC ,  PERNMS , 

♦  INFLIDjOTFLID 
C 

CXXXX  INITIALIZE  LOGICAL  FLAGS 
ECHOFG*. FALSE. 

TA8FO.  FALSE. 

FRQARU-. FALSE. 

WRTOUT*. FALSE. 

SETDI**.  FALSE. 

SETNMS*. FALSE. 

C 

CXXXX  READ  IN  CONFIG  FILE 
READ (NCRDR, FLA GNM) 

IF  (SETDIM)  READ (NCRDR, RODIM) 

IF  (SETNMS)  READ(  NCRDR,  RShMS) 

NRITE(NPRNT,FLAGMD 
NRITE(NPRNT, RODIM) 

CALL  RDFACT(INFLID< If)) 

IF  (TABFG)  CALL  PRTTAB 

RETURN 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


c  X 
C  Name:  CONREQ  X 
C  Module  Number i  1.6  X 
C  Functioni  Performs  all  subroutine  calls  to  read  input  files  to  X 
C  determine  weekly  and  periodic  requirements  and  create  X 
C  the  constant  ouput  file.  X 
C  Input  Parameters!  none  X 
C  Output  Parameters!  none  X 
C  Common  Blacks/Variables  Used!  DIMEN/ QTRNUM  X 
C  FILIDS/INFLID,OTFLID  X 
C  FLAGS/HRTQUT , FRQARU  X 
C  QTRDEF/QTRM1S  X 
C  UNITS/NINPUT  X 
C  Cannon  Blocks/Variables  Changed!  none  X 
C  Modules  Called!  WEEKLY , PER 1 00 , OPN INP , SRTWRT , CLSERR , ENDERR  X 
C  Calling  Modules!  MAIN  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  CONREQ 
CHARACTER  FILEW1X7 
C 

CXXXX  COMMON  BLOCKS 

INTEGER  QTRNUM, WPCLAS 

COMMON/D  I MEN/NUMLOC  ,NUMCPU,NUMCLS  .NUMSIZ  .NUhWKS  ,NUMST ,  HUM  BA, 

4  NUMAD  ,NUMOTH ,  QTRNUM  .WPCLAS 

CHARACTERX 1  INFLID.OTFLID 
COMMON/FI LIDS/  INFLID( 10) ,OTFLID 
LOGICAL  ECHOFG, TABFG, FRQARV, WRTOUT 
COMMON/ FLAGS/  ECHOFG, TABFG, FRQARU, WRTOUT 


CHARACTER* 2  QTRNMS 
COWON/QTRDEF/  QTRWS<5> 

COMMON/ UNITS/  NCRDR ,NPRNT ,N INPUT ,NOUT 
C 

CXXXX  READ  AND  PROCESS  MEEKLY  REQUIREMENTS  FILE 
ICOUNT*0 

FILEW='WEKREQ//INFLID<7) 

CALL  OPNINP(FILEW,  'F'> 

CALL  WEEKLY<FILEW,7,  ICOUNT) 

CLOSE  <NINPUT,ERR=280) 

C 

CXXXX  READ  AND  PROCESS  PERIODIC  REQUIREMENTS  FILE 
FI  LENM* '  PERREQV/ INFL I D  <  8) 

CALL  OPNINP<FILEW,'F') 

CALL  PERIODIFILEW, 8,  ICOUNT) 

CLOSE ( N I NPUT , ERR«  29 0 ) 

C 

CXXXX  OPEN  AND  MRITE  CONSTANT  FILE 

FILENTt=''CNST,//QTRM1S(QTRNUM)  <  s2)//0TFLID<  :  1) 

IF  (MRTOUT)  THEN 

CALL  OPNOUT<FILEW,'U'> 

CALL  SRTWRT <  ICOUNT ,  FI  LEW) 

CALL  CLSFIL(FILEW) 

ELSE 

FILENT^'NGNE 

IF  (FRQARV)  CALL  SRTWRT ( I COUNT, FI LEhM) 

END  IF 
RETURN 
C 

200  CALL  CLSERR<FILEW) 

END 

CXXXXXXXXXXXMXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


C  X 
C  Nine:  DAYSFT  X 
C  Module  Number :  1.C.4  X 
C  Function i  Calls  PRTHDR  to  print  format  HDRNUM;  opens  format  3  X 
C  FI  LEW  j  calls  RDFMT3  to  input  file;  and  calls  DSTWRK  X 
C  to  distribute  the  work  over  each  week.  X 
C  Input  Parameters:  FILEW,  HDRNUM  X 
C  Output  Parameters:  none  X 
C  Common  Blocks/Variables  Used:  DIMEN/NUWKS  X 
C  FLA6S/ECH0FQ  X 
C  UNITS/NINPUT  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  RDFMT3, DSTWRK, PRTHDR.OPNINP, CL SERR  X 
C  Calling  Modules:  CALAOM,  CALOTH  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  DAYSFT<  FI  LEW,  HDRNUM) 

CHARACTER  FILEWX7 
INTEGER  HDRNUM .CLASS, SIZE 
REAL  INPC , I NBA 
C 

CXXXX  COMMON  BLOCKS 


D- 12 


INTEGER  QTRNUM , WPCLAS 

COMMON/D I MEN/  NUMLOC,NlMCPU,NUMCLS,NUMSIZ ,NUMNKS,NUMST,NUMBA, 

+  NUMAD , NUMOTH , QTRNUM .WPCLAS 

LOGICAL  ECHOFG , TABFG , FRQARV , WRTOUT 
CGNM ON/FLAGS/  ECHOFG , TABFG , FRQARU , WRTOUT 
COMMON/ LNITS/  NCRDR  ,NPRtsTT  ,NINPUT ,  NO  ITT 
C 

IF  (ECHOFG)  CALL  PRTHDR ( F I LENi , HDRNUM) 

C 

CXXXX  OPEN  AND  PROCESS  FORMAT  3  FILES 

TNPTsfl  A 

CALL  OPNINP(FILENM,  'FO 

18  CALL  RDFMT3(L0CAT , INCOMP, CLASS, SIZE, NUMUSE, INBA) 

IF  (LOCAT  .EQ.  8>  THEN 
CLOSE(NINPUT ,  ERR=300) 

RETURN 
END  IF 
C 

CXXXX  DISTRIBUTE  DAILY  ADMIN  WORK 
DO  108  I»l,NttWKS 
I WEEK* I 

CALL  DSTHRK< LOCAT , I WEEK .NUMUSE , INCOMP , CLASS ,SIZE,INPC, INBA) 
188  CONTINUE 
GO  TO  18 
C 

388  CALL  CLSERR(FILEMI) 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


C  X 
C  Name:  DISTWP  X 
C  Module  Number:  1.C.9  X 
C  Function:  Distributes  the  word  processing  load  into  TOTINT  and  X 
C  TOTPC  -for  one  week  according  to  a  word  processing  X 
C  factor  for  each  computer  and  size  load.  X 
C  Input  Parameters:  LOCAT, WEEK, XINT,XPC  X 
C  Output  Parameters:  none  X 
C  Common  Blocks/Variables  Used:  DIMEN/NUMCPU,NUMSIZ  X 
C  FACTXX/WPFACT  X 
C  TOTALS/TOT I NT , TOTPC  X 
C  Common  Blocks/Variables  Changed:  TOTAL S/TOT INT, TOTPC  X 
C  Modules  Called:  none  X 
C  Calling  Modules:  WPNORK  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  DISTWP(LOCAT,WEEK,XINT,XPO 

PARAMETER  (MAXLOC-3  ,MAXWKS*  1 1  ,MAXCPU»6  ,MAXCLS*4 , MAXSIZ-6) 

C 

INTEGER  MEEK 
C 

CXXXX  COMMON  BLOCKS 

INTEGER  QTRNUM, WPCLAS 

COMMON/DIMEN/  NUMLOC  .NUMCPU  ,NUMCLS  ,NU1SIZ  ,NUMWKS  .NUMST  ,NUMBA , 

♦  NUMAD , NUMOTH ,  QTRNUM , WPCLAS 

COMMCN/FACTXX/  PCFACT(MAXCLS,MAXSIZ) ,SESFACT(MAXCLS,MAXSIZ)  , 


4  RUNFACT(KWXCLS,MAXSIZ>  ,BAFACT<tt*XCPU>  ,WPFACT<httXCPU,MAXSI2> 
CQMMON/TOTALS/  TOTINT(MAXLOC,MAXWKS,MAXCPU,l*ttXCLS,MAXSIZ>  , 

+  TOTBAT  (MAXLOC,MAXWKS,MAXCPU,MAXCLS,MAXSIZ> , 

4  TOTPC(MAXLOC ,MAXWKS , MAX CPU ,MAXCLS ,MAXSI Z) 

C 

CXXXX  DISTRIBUTE  WORD  PROCESSING  LOAD 
DO  208  1= 1 ,NUMCPU- 1 

DO  100  J=1 ,NUMSI  Z 

TOTINT(LOCAT,l-  ~EK , I , WPCLAS ,  J)  =T0TINT( LOCAT , 

4  WEEK, I  lWPC^S,J)4(XINTXWPFACT(I,J)) 

TOTPC<  LOCAT  ,1«EK ,  I  , WPCLAS ,  J)  =TOTPC(  LOCAT , 

4  WEEK,I,WPCLAS,J)4(XPCXWPFACT(I,J>) 

100  CONTINUE 

200  CONTINUE 
RETURN 
END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

C  Name:  DSTWRK 
C  Module  Number:  1.C.4 

C  Function:  Distributes  a  weekly  work  oad  into  the  TOTAL  arrays 
C  (TOTINT,  TOTPC,  TOTBAT)  as  -follows: 

C  Batch  users  =  C INBAXBAFACTC INCOMP) ) X INSTUD 

C  PC  users  «  INSTUDXINPC 

C  Interactive  users  *  INSTUD-tBatch  users4PC  users 

C  Input  Parameters:  LOCAT ,WEEKNQ, INSTUD, INCOMP, CLASS, SIZE, INPC,INBA 
C  Output  Parameters:  none 

C  Common  Blocks/Variables  Used:  FACTXX/BAFACT , PCFACT 
C  TOTALS/TOT I NT .TOTBAT , TOTPC 

C  Common  Blocks/Variables  Changed:  TOTALS/TOT I NT , TOTBAT , T OTPC 
C  Modules  Called:  none 
C  Calling  Modules:  REGNRK,  DAYSFT 
C 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  DSTWRK(LOCAT,WEEKNO, INSTUD, INCOMP, CLASS, SIZE, 

4  INPC, INBA) 

PARAMETER  (MAXL0C-3.MAXWKS* 1 1  ,fW<CPI>4 ,mXCLS-<S ,MAXSI 2=6) 

C 

REAL  INPC, INBA, INTSTD 
INTEGER  WEEmO, CLASS, SIZE 
C 

CXXXX  COMMON  BLOCKS 

CGT+fGN/FACTXX/  PCFACT(MAXCLS,fttXSIZ) ,SESFACT<MAXCLS,MAXSIZ) , 

4  RUNFACT (MAXCLS,MAXSIZ) ,BAFACT(tWXCPU) ,WPFACT(MAXCPU ,MAXSIZ) 
COMMCN/TOTALS/  TOTINT(MAXLOC ,MAXWKS,MAXCPU,MAXCLS,MAXSIZ> , 

4  TOTBAT (MAXLOC,MA)MKS,MAXCPU,MAXCLS,MAXS I Z) , 

4  TOTPC<MAXLOC,MAXNKS,MAXCPU,MAXCLS,MAXSI2) 

C 

CXXXX  CALCULATE  BATCH  USERS 
TSTUD“REAL( INSTUD) 

IF  ((INBA  .GT.  0.0)  .AND.  ( BA FACT ( INCOMP)  .GT.  0.0))  THEN 
TFACT- INBAXBAFACT ( INCOMP) 

BATSTO-TSTUOXTFACT 

TOT  BAT  <  LOCAT  ,WEEW« ,  INCOMP,  CLASS  .SIZE)- 


4 


TOTBAT  <  LOCAT .WEEKNO , INCOMP , CLASS .SIZE) + BAT STD 


ELSE 

BATSTD*0 .0 
ENDIF 
C 

CXXXX  CALCULATE  PC  USERS 

IF  < ( INPC  .GT.  0.0)  .AND.  (PCFACT( CLASS, SIZE)  .GT.  0.0))  THEN 
PCSTUO= INPCXPCFACT <  CLASS , S I ZE) XTSTUD 
TOT PC < LOCAT , WEEKNO , I NCGMP , CLASS , S I Z  E)  = 

+  TOTPC  <  LOCAT .WEEKNO , INCOMP , CLASS .SIZE) 4PCSTUD 

ELSE 

PCSTUD=0 . 0 
ENDIF 
C 

CXXXX  CALCULATE  INTERACTIVE  USERS 
INTSTD=TSTUD-<  BATSTD4PCSTUD) 

IF  < I NT STD  .LE.  0.0)  RETURN 

TOTINTC LOCAT .WEEKNO , INCGMP .CLASS , SI ZE) » 

4  TOT INT(LOGAT, WEEKNO, INCOMP, CLASS, SIZE) +INTSTD 

RETURN 
END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
c 

c  Name:  FRQHDR 
C  Module  Number i  1.C.7 

C  Function:  Prints  the  arrival  and  frequency  -file  headers  -for 
C  OUTFIL. 

C  Input  Parameters:  OUTFIL.HDRNUM 
C  Output  Parameters:  none 
C  Common  B)  ocks/Var iabl  es  Used:  UNITS/NPRNT 
C  Common  Blocks/Variables  Changed:  none 
C  Modules  Called:  none 

C  Calling  Modules:  CALADM.CALSTD, BATCH  .CALOTH 
C 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  FRQHDR (OUTFIL.HDRNUM) 

CHARACTERX7  OUTFIL 
INTEGER  HDRNUM 
C 

CXXXX  COMMON  BLOCKS 

COMMON/ UNITS/  NCR DR.NPRNT ,N INPUT, NOUT 
C 

CXXXX  PRINT  HEADER  FOR  ARRIVAL  AND  FREQUENCY  FILE 
GOTO  (10,20,30,40)  HDRNUM 
WRITE(NPRNT,3)  HDRNUM 
STOP 

5  FORMAT <717,7 SUBROUTINE  FRQHDR  CALLED  WITH  UNKNOWN  HEADER7, 

♦  7  NUMBER7, 13) 

C 

10  WRITE(NPRNT.IS) 

WRITE(NPRNT, 100)  OUTFIL 
RETURN 

13  FORMAT(7l7, 'STUDENT  ARRIVAL  AND  FREQUENCY  FILE7) 

C 


20  WRITE<NPRNT,25) 

WRITE(NPRNT,100)  OUTFIL 
RETURN 

25  FORMAT < '  1 ' , ' FACUL I TY/ADM INSTRATI  ON  ARRIVAL  AND  FREQUENCY  FILE') 
C 

30  WRITECNPRNT ,35) 

WRITE(NPRNT, 100)  OUTFIL 
RETURN 

35  FORMAT < '  1 ' , ' SOFTWARE  DEVELOPMENT  ARRIVAL  AND  FREQUENCY  FILE') 

C 

40  WRITE<NPRNT,45) 

WRITEINPRNT, 100)  OUTFIL 
RETURN 

45  FORMAT BATCH  ARRIVAL  Ah©  FREQUENCY  FILE') 

C 

100  FORMAT <'  ','  FILE  NAME:  ' ,A7> 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


C  X 
C  Nam*]  OPNERR  X 
C  Module  Number :  1.C.8  X 
C  Functions  Print*  'filename  when  open  error  occur*  and  then  stop*  X 
C  execution.  X 
C  Input  Parameter*!  FILEM1  X 
C  Output  Parameters:  none  X 
C  Common  Blocks/Variables  Used:  UNITS/NPRNT  X 
C  Common  Blocks/Variables  Changed!  none  X 
C  Modules  Called!  none  X 
C  Calling  Module*!  OPNINPfOPNOUT  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  OPNERR(FILEM) 

CHARACTER  FILEM1X7 
C 

CXXXX  COMMON  BLOCKS 

COMMON/ UNITS/  NCRDR,NPRNT ,NINPUT,NOUT 
C 

NRITE  NPRNT.10)  FILEhfi 
STOP 

10  FORMATS  ','FILE  ',A7,'  OPEN  ERROR') 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


c  X 
C  Name!  OPNINP  X 
C  Module  Number!  1.C.9  X 
C  Function!  Open*  the  input  files.  X 
C  Input  Parameters!  INFIL, FORMAT  X 
C  Output  Parameter*!  none  X 
C  Common  Blocks/Variables  Used!  UNITS/NINPUT  X 
C  Common  Blocks/Variables  Changed!  none  X 
C  Module*  Called!  OPNERR  X 
C  Calling  Module*!  CONREQ,REGMRK,HPMORK,DAYSFT  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


D-l  6 
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c 

SUBROUTINE  OPNlNP(INFIL,FORhWT> 

CHARACTER  INFILX7, FORMAT* 1 
C 

CXXXX  COMMON  BLOCKS 

COMMON/ UNITS/  NCRDR,NPRNT ,NINPUT,NOUT 
C 

CXXXX  OPEN  AN  INPUT  FILE 

IF  (FORMAT  .EQ.  'U')  THEN 

OPEN(UNIT=NINPUT,FILE®INFIL,  STATUS' OLD'  ,ACCESS='SEQUENTIAL' , 

♦  FORM* 'UNFOW1ATTE;)',  ERR®  100) 

ELSE 

OPEN( UNIT®NINPUT, FILE® INFIL, STATUS*' OLD' ,  ACCESS 'SEQUENTIAL' , 

♦  FORM“'FORMATTED' ,ERR=100> 

END  IF 

RETURN 

C 

100  CALL  OPNERR(INFIL) 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


C  X 
C  Manet  OPNOUT  X 
C  Module  Number i  1.C.10  X 
C  Function:  Opens  the  output  -files.  X 
C  Input  Parameters:  OUTFIL.FORMAT  X 
C  Output  Parameters:  none  X 
C  Common  Blocks/Uariables  Used:  UNITS/NOUT  X 
C  Common  Blocks/Uariabtes  Changed:  none  X 
C  Modules  Called:  OPNERR  X 
C  Calling  Modules:  BATCH , CALAOM , CALOTH , CAL STD , CGNREQ  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  OPNOUT ( OLTTF I L , FORMAT) 

CHARACTER  0UTFILX7, FORMAT* 1 
C 

CXXXX  COttlON  BLOCKS 

COMMON/UNITS/  NCRDR,NPRNT ,NINPUT ,NOUT 
C 

CXXXX  OPEN  AND  OUTPUT  FILE 

IF  (FORMAT  .EQ.  'U')  THEN 

OPEN(UNIT*^OUT,FILE®OUTFIL,STATUS-'NEN'  .ACCESS® 'SEQUENTIAL' , 

♦  FORfM' UNFORMATTED',  ERR®  108) 

ELSE 

OPEN(UNIT^raUT,FILE-OUTFILfSTATUS-'NEN'  .ACCESS- 'SEQUENTIAL' , 

♦  FORM8' FORMATTED' , ERR® 100) 

END  IF 

RETURN 

C 

100  CALL  OPNERR(OUTFIL) 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

C  X 

C  Name:  PER IX  X 

C  Module  Number:  1.4.2  X 


D-17 


C  Function:  Calls  PRTHOR  to  print  header  HDRNUM ;  opens  file  FILEWjX 


C  calls  RDFMT4  to  read  periodic  requirements  X 
C  Input  Parameters:  FI  LEW,  HDRNUM,  ICOUNT  X 
C  Output  Parameters:  none  X 
C  Common  Blocks/Variables  Used:  FLAGS/ECHOFG  X 
C  TOTAL S/TOT I NT, TOT BAT, TOTPC  X 
C  Common  Blocks/Variables  Changed:  Uses  TOTALS  space.  X 
C  Modules  Called:  RDFWT 4 , PRTHDR  X 
C  Cal  I ing  Modules:  CQNREQ  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  PERIOD!  FI  LEW,  HDRNUM,  I  COUNT) 

PARAMETER  (MAXL0O3 ,MAXWKS=  1 1  ,MAXCPU*6 ,MAXCLS-4,MAXSIZ«4> 

C 

CHARACTER  FILEWX7 

DIMENSION  SORTARC 1806,5) , ISRTAR! 1000,5) 

INTEGER  HDRNUM, CLASS, S I ZE.DAYNO 
C 

CXXXX  COMMON  BLOCKS 

LOGICAL  ECHOFG ,TABFG , FRQARV ,  WRTOUT 

COWON/FLAGS/  EC  HOF  6 ,  TABFG ,  FRQARV ,  WRTOUT 

COWON/TOTALS/  TOTINT(MM(LOC,MAXM<S,MAXCPU,MAXCLS,MAXSIZ)  , 

♦  TOTBAT (MAXLOC,MAXNKS,MAXCPU,MAXCLS,MAXSIZ) , 

♦  TOTPC (MAXLOC ,MAXMKS ,MAXCPU , MAXCLS , MAXS I Z  > 

EQUIVALENCE  (SORTAR! 1 , 1) , ISRTAR! 1 , 1) ,TOTINT< 1 , 1 , 1 , 1 , 1) ) 

C 

IF  (ECHOFG)  CALL  PRTHDR<  FI  LEW,  HDRNUM) 

C 

CXXXX  PROCESS  FORMAT  4  (PERIODIC)  FILE 

10  GALL  RDFMT4<L0CNUM,TIM0AY, INCOMP, CLASS, SIZE, DAYNO) 

IF  (LGCNUM  .EQ.  8)  RETURN 
XTIME-(REAL<DAYNO) X 84408 .) +TIMDAYX3680 . 

I COUNT- I COUNT ♦! 

SORTAR( I COUNT , D-XTIME 
I SRTAR < I COUNT , 2) -LOCNUM 
I SRTAR ( I COUNT , 3) » I N COMP 
I SRTAR (I COUNT, 4) -CLASS 
I SRTAR< I COUNT , 5) -SI ZE 
GO  TO  18 
C 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


C  X 
C  Name:  PRTHDR  X 
C  Module  Number:  l.C.ll  X 
C  Function:  Prints  the  echo  input  headers.  X 
C  Input  Parameters:  FILEW,NUMHDR  X 
C  Output  Parameters:  none  X 
C  Common  Blocks/Variables  Used:  DIMEN/QTRNlH  X 
C  QTRDEF/QTRWS  X 
C  UNITS/NPRNT  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  none  X 
C  Calling  Modules:  WEEKLY , PERI 00 , REGNRK ,NPWORK , DAYSFT  X 


C  X 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
c 

SUBROUTINE  PRTHDR< F I LEM1  , NUMHDR) 

c 

CHARACTER  FILENMX7 
INTEGER  NUMHDR 
C 

CXXXX  COMMON  BLOCKS 

INTEGER  QTRNUM, NPCLAS 

COH*JN/DI.^£N/  NUMLOC  ,NUMCPU,NUMCLS ,NUMSI Z  ,NUKWKS  ,NUMST  ,NUMBA , 

♦  NUMAO ,NUMOTH , QTRNUM ,WPCLAS 
CHARACTERS 2  QTRNMS 
COfflQN/GTRDEF/  QTRNMS  (5) 

COMMON/UNITS/  NCRDR ,NPRNT pNINPUT ,NOUT 

C 

CXXXX  PRINT  ECHO  HEADERS 

GOTO  (18,28,38,48,58,68,70,80,98)  NUMHDR 
NRITE(NPRNT,5) 

RETURN 

5  FORMAT(' 1' , 'XXX  ERROR  XXX  SUBROUTINE  PRTHDR  CALLED  WITH  BAD  ', 

♦  'UNKNOWN  HEADER  NUMBER') 

C 

CXXXX  PRINT  STUDENT  COURSE  WORK 

10  NRITE(NPRNT,  15)  FI LENM, QTRNMS (QTRNUM) 

RETURN 

15  FORMAT! 'l',56X,' STUDENT  COURSE  WORK',/, 

♦  49X, 'FILE  NAMEi ' ,A7,2X,A6,  IX, 'QUARTER'  ,//, 

♦  38X, 'COURSE  NUM  OF' , 15X, 'REQUIREMENT/WEEK' , 19X, 'PC' , 

♦  5X, 'BATCH',/, 

♦  23X , '  LOCAT  NUMBER  STUDENTS  1  2  3  4  5  6  7  8' 

♦  '  9  18  11  FACTOR  FACTOR') 

C 

CXXXX  PRINT  STUDENT  WORD  PROCESSING  LOAD 
28  WRITE(NPRNT,25)  FI LENM, QTRNMS (QTRNUM) 

RETURN 

25  FORMAT!' 1' , 53X ,' STUDENT  WORD  PROCESSING  LOAD',/, 

♦  SIX, 'FILE  NAME :',A7,2X,A6, IX, 'QUARTER',//, 

♦  70X, 'REQUIREMENTS/WEEK' ,27X,'PC' ,/, 

♦  29X,  'LOCAT  STUOENTS  PERCNT  1  2  3  4  5', 

♦  6  7  8  9  18  11  FACTOR') 

C 

CXXXX  PRINT  STUDENT  THESIS  REQUIREMENTS 
38  MRITE(NPRNT,35)  FI  LENM,  QTRhHS!  QTRNUM) 

RETURN 

35  FORMAT! 'l',53K, 'STUDENT  THESIS  REQUIREMENTS',/, 

♦  5 IX, 'FILE  NAME i ',A7,2X,A6, IX, 'QUARTER',//, 

♦  39X, 'NUM  OF', 15X, 'REQUIREMENT/WEEK', 19X, 'PC', 

♦  4X, 'BATCH',/, 

♦  22X, 'LOCAT  DESCRP  STUDENTS  1  2  3  4  5  6  7  8 

♦  '  9  18  11  FACTOR  FACTOR') 

C 

CXXXX  PRINT  FACULITY  RESEARCH  REQUIREMENTS 
48  WRITE(NPRNT ,45)  FI LENM, QTRNMS (QTRNUM) 

RETURN 


45  FORMAT!' l',51X, 'FACULITY  RESEARCH  REQUIREMENTS',/, 

♦  5 IX, 'FILE  NAME: ' ,A7,2X,A6, IX, 'QUARTER' ,//, 

♦  39X , 'NUM  OF', 15X, 'REQUIREMENT/WEEK', 19X, 'PC', 

♦  5X, 'BATCH',/, 

♦  22X, 'LOCAT  DESCRP  FACULITY  12345678 

♦  '  9  10  il  FACTOR  FACTOR') 

C 

CXXXX  PRINT  SOFTWARE  DEVELOPMENT  REQUIREMENTS 
50  NRITE<NPRNT,55>  FILENM,QTRWiS!QTRNUM> 

RETURN 

55  FORMAT < ' 1 ' , 50X , ' SOFTWARE  DEVELOPMENT  REQUIREMENTS',/, 

♦  5 IX, 'FILE  NAME: ' ,A7,2X,A6, IX, 'QUARTER' ,//, 

♦  85X,'#  DEV  BATCH',/, 

♦  34X,  'LOCATION  PR06ID  COMPUTERS  CLASS  SIZE', 

♦  '  TEAM  FACTOR') 

C 

CXXXX  PRINT  DAILY  ADMINSTRATIVE  REQUIREMENTS 
60  WRITE<NPRNT,65)  FILENM,QTRNMS(QTRNUM) 

RETURN 

65  FORMAT('1',50X, 'DAILY  ADMINSTRATIVE  REQUIREMENTS',/, 

♦  5 IX, 'FILE  NAME: ' ,A7,2X,A6, IX, 'QUARTER' ,//, 

♦  85X,'#  OF  BATCH',/, 

♦  36X,  'LOCAT  DESCRP  COMPUTERS  CLASS  SIZE  USERS 

♦  '  FACTOR') 

C 

CXXXX  PRINT  WEEKLY  ADMINSTRATIVE  REQUIREMENTS 
70  NRITE<NPRNT,75)  FILENM,QTRNMS(QTRNUM) 

RETURN 

75  FORMAr< '  1' ,50X, 'WEEKLY  ADMINSTRATIVE  REQUIREMENTS',/, 

♦  51X, 'FILE  NAME:', A7,2X,A6, IX, 'QUARTER',//, 

♦  26X,  'LOCATION  DESCRP  COMPUTER  CLASS  SIZE 

♦  'DAY#  TIMDAY') 

C 

CXXXX  PRINT  PERIOOIC  ADMINSTRATIVE  REQUIREMENTS 
88  NRITE(NPRNT,85)  FILENM,QTW4iS(QTRNUM) 

RETURN 

85  FORMAT!'  1'  ,49X, 'PERIODIC  AOMINSTRATIVE  REQUIREMENTS',/, 

♦  SIX, 'FILE  NAME A7,2X,A6, IX, 'QUARTER',//, 

♦  26X,  'LOCATION  DESCRP  COMPUTER  CLASS  SIZE 

♦  'DAY#  TIMOAY') 

C 

CXXXX  PRINT  FACULITY  WORD  PROCESSING  REQUIREMENTS 
90  NRITE<NPRNT ,95)  FILENM,QTRNMS<QTRNUM> 

RETURN 

93  FORMAT!' 1' ,53X, 'FACILITY  WORD  PROCESSING  LOAD',/, 

♦  51X,'FILE  NAMEi', A7,2X,A6, IX, 'QUARTER',//, 

♦  70X, 'REQUIREMENT S/>CEK'  ,27X,'PC' ,/, 

♦  29X, 'LOCAT  FACULITY  PERtNT  1  2  3  4  5', 

♦  6  7  8  9  18  11  FACTOR') 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
C 

C  Nmi  PRTTAB 
C  Module  Number:  1.1.2 

C  Function!  Print*  the  input  FACTOR  File  table*  and  computer, 


MIMMK 


C  class,  and  size  descriptions.  X 
C  Input  Parameters:  none  X 
C  Output  Parameters:  none  X 
C  Common  Blocks/Variables  Used:  DAYSXX/DAYSST , DAYSAD , DAYS BA  X 
C  D IMEN/NUMCPU ,  NUMCLS ,  NUMS 1 2  X 
C  FACTXX/SESFACT , PCFACT , RUNFACT , BAFACT , WPFACT  X 
C  HOURXX/HOURST , HOURAO , HOURBA  X 
C  IDS/C0MPID,CLASID,S12IDS  X 
C  NAMES/COMPNM ,  CLASNM ,  S 1 2NMS ,  TYPLX  X 
C  UNITS/NPRNT  X 
C  Common  Blocks/Variables  Changed: none  X 
C  Modules  Called:  none  X 
C  Calling  Modules:  CONFIG  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  PRTTAB 

PARAMETER  <MAXL0O3,MAXCPl>*4  ,MAXCLS=4,MAXSIZ=4) 

C 

CXXXX  COtfiON  BLOCKS 

COMMON/DA YSXX/  DAYSST(T) , DAY SAD (7) ,0AYSBA(7> 

INTEGER  QTRNUM , WPCLAS 

COttlON/DIMEN/  NUMLOC  ,NUHCPU, NUMCLS ,NUMSIZ  ,NUM4KS  ,NUMST  ,NUMBA , 

4  NUMAO,NUMOTH,  QTRNUM,  MPCLAS 

COmON/FACTXX/  PCFACT  (MAX  CPU, MftXSIZ)  ,  SESFACT  (MAXCPU  ,I**XSI  Z)  , 

4  RUNFACT (MAX CPU, MAXSIZ)  , BAFACT (MAX CPU)  , WPFACT (MAXCPU,MAXSIZ) 
COMION/HOURXX/  HOURST(24) ,H0URAD(24) , HOURBA (24) 

CHARACTER* 1  COMPID,CLASID,SIZIDS 

COtflON/IDS/  COMP  ID  (MAX  CPU)  ,CLASIDOWXCLS>  ,SIZIDS(t«XSIZ) 
CHARACTER*  8  C  LA  SMI ,  COMPNM ,  LOCM1S ,  S I  ZhNS ,  TYPLOC ,  PERNMS 
COMMON/NAMES/  CLASM1  ( MAXCLS)  , COMPNM (MAXCPU)  ,  LOCM1S  (MAXLOC)  , 

4  SIZMiS(MAXSIZ) , TYPLOC (MAXLOC) ,PERNMS( IB) 

COttKJN/UNITS/  NCRDR  ,NPRNT  ,NINPUT  ,NOUT 
C 

WRITE(NPRNT ,  1 10) 

C 

CXXXX  PRINT  DAILY  FACTOR  TABLE 
NRITE<NPRNT, 120) 

WRITE(NPRNT, 130)  TYPLOC< 1) .DAYSST 
NRITE<NPRNT, 130)  TYPLOC ( 2) ,DAYSBA 
WRITE (NPRNT, 130)  TYPLOC (3) , DAY SAD 
C 

CXXXX  PRINT  HOURLY  FACTOR  TABLES 
NRITE(NPRNT, 140) 

WRITE  (NPRNT ,  130)  TYPLX  ( 1)  ,  HOURST 
WRITE(NPRNT ,  150)  TYPLX ( 2)  , HOURBA 
WRITE  (NPRNT,  130)  TYPLX(3)  ,HOURAD 
C 

CXXXX  IDENTIFY  COMPUTERS  AND  CODES 
NRITE(NPRNT, 140) 

DO  10  I-l.NUMCPU 

WRITE(NPRNT ,  170)  I  ,C0MPID(I)  ,C0MPM4(I) 

10  CONTINUE 
C 

CXXXX  IDENTIFY  CLASSES  AND  CODES 


WRITE(NPRNT, 188) 

DO  20  l=l,NUMCLS 
WRITE!NPRNT, 170) 
20  CONTINUE 


I ,CLASID(I) ,CLASN«I) 


CXXXX  IDENTIFY  MEMORY  SIZES  AND  CODES 
WRITE!NPRNT , 190) 

DO  30  1=1 ,NUMSIZ 

WRITE<NPRNT , 170)  I,SIZIDS< 
30  CONTINUE 


I  ,SIZIDS< I) ,SIZNMS<I> 


C XXIX  PRINT  FACTOR  TABLE 
NRITE<NPRNT,210> 

DO  30  1=1 ,NUhCLS 

WRITE  !NPRNT,  220)  CLASMKI) 

DO  40  J=1,NUMSI2 

WRITE(NPRNT ,230)  SIZMIS(J) ,SESFACT< I , J) ,PCFACT(I,J> 

♦  RUNFACT ( I ,  J) 

40  CONTINUE 

50  CONTINUE 
C 

CXXXX  PRINT  WORD  PROCESSING  FACTORS 
NRITE(NPRNT,230) 

DO  70  1=1  jNUMCPO- 1 

WRITE!NPRNT ,  240)  COMPMI(I) 

DO  40  J=1 ,NUMSIZ 

NRITE(NPRNT ,270)  SIZMIStJ) ,WPFACT(I,J) 

40  CONTINUE 

70  CONTINUE 
C 

CXXXX  PRINT  BATCH  FACTOR 
WRITE<NPRNT  ,280) 

DO  80  I=1,NUMCPU-1 

HRITE!NPRNT,290)  COMPNM(I)  ,BAFACT(I) 

80  CONTINUE 
RETURN 
C 

CXXXX  FORMAT  STATEMENTS 

110  FORMAT! 'l',39X,' INPUT  TABLES') 

120  FORMAT('0',55X, 'DISTRIBUTION  OVER  WEEK' ,/, 

♦  38X, 'LOCATION  MON  TUE  MED  THR  FRI  SAT 

♦  'SUN') 

130  FORMAT!'  ' ,37X,A8,7F7.3> 

140  FORMAT! '0',33)!, 'DISTRIBUTION  OVER  DAY',/, 

♦  IX, 'LOCATION  0000  0100  0200  0300  0400  030C 

480  0700  0800  0900  1000  1 100' ,/, 12X 

30 

♦  '  2200  2300') 

150  FORMAT!'  ' ,A8,3X, 12F7.3,/, 12X, 12F7.3) 

140  FORMAT! '0',34X,' COMPUTERS  DESCRIPTION',/, 

♦  34X, 'NUMBER  CODE  DESCRIPTION') 

170  FORMAT!'  ' ,54X,I4,4X,A1 ,5X,A8) 

180  FORMAT! '0',54X, 'CLASS  WORK  DESCRIPTION',/, 

♦  34X, 'NUMBER  CODE  DESCRIPTION') 

190  FORMAT! '0',34X, 'MEMORY  SIZE  DESCRIPTIONS',/ 


ooonoonooooooooon 


♦  34X, 'NUMBER  CODE  DESCRIPTION') 

2 18  FORMAT < ' 1 ' , 60X , ' FACTOR  TABLE' ,/ , 

♦  57X, 'SESSION  PC  *  OF',/, 

+  36X, 'CLASS  SIZE  FACTOR  FACTOR  BATCH') 

220  FORMAT ( '  ' ,34X,A8) 

230  FORMAT < '  ♦ ' , 44X , A8 , 3F 10 . 4 ,/) 

258  FORMAT <'1',54X,' WORD  PROCESSING  FACTORS',/, 

♦  53X, 'DISTRIBUTION  OVER  COMPUTERS',/, 

♦  52X, 'COMPUTER  SIZE  FACTOR') 

268  FORMATS  ',52X,A8> 

270  FORMAT! '♦' ,62X,A8,F10 .4,/) 

280  FORMATS 0',60X,' BATCH  FACTOR' ,/,58X, 'COMPUTER  FACTOR') 

290  FORMAT < '  ' ,58X,A8,F6. 1) 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


c  x 

C  Name:  RDERR  X 
C  Module  Number!  1.C.12  X 
C  Function:  Prints  the  unit  number  when  a  read  error  occurs.  X 
C  Input  Parameters:  IUNIT  X 
C  Output  Parameters:  none  X 
C  Common  Blocks/Variables  Used:  UNITS/NPRNT  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  none  X 
C  Calling  Modules:  RDFMT 1-4  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxx*xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  RDERR< IUNIT) 

C 

CXXXX  COMMON  BLOCKS 

COMMON/UNITS/  NCRDR ,NPRNT ,NINPUT ,NOUT 
C 

NRITECNPRNT , 10)  IUNIT 
STOP 

10  FORMAT!'  ' , 'UNIT  ',12,'  READ  ERROR') 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X 

Name:  RDFACT  X 

Module  Number:  1.1.1  X 

Function:  Opens  and  reads  FACTORx  file.  X 

Input  Parameters:  FILEID  X 

Output  Parameters:  none  X 

Common  Blocks/Variables  Used:  DAYSXX/DAYSST , DAYSAD , DAYSBA  X 

DIMEN/NUMCPU,NUMCLS,NUMSIZ  X 

FACTXX/PCFACT ,  BAFACT ,  WPFACT ,  SESFACT ,  RUNFACT  X 

HOURXX/HOURST , HOURAD , HOURBA  X 

UNITS/NINPUT  X 

Common  Blocks/Variables  Changed:  DAYSXX/DAYSST, DAYSAD, DAYSBA  X 

FACTXX/PCFACT , BAFACT , WPFACT , SESFACT , RUNFACT  X 

HOURXX/HOURST , HOURAD , HOURBA  X 

Modules  Called:  none  X 

Calling  Modules:  CONFIB  X 

X 


CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

c 

SUBROUTINE  RDFACT < F I LE I D> 

PARAMETER  (MAXCPl>=4  ,MAXCLS=6  ,MAXSI Z=6) 

C 

CHARACTER  FIL£IDX1,FILENMX7 
C 

CXXXX  COMMON  BLOCKS 

COftlON/DAYSXX/  DAYS  ST  <  7)  ,  DAY  SAD  (7)  ,DAYS8AC7) 

INTEGER  QTRNUM ,  HPCLAS 

COMMON/DIMEN/  NLMLOC , NUMCPU , NUMCLS ,NUMSI Z  ,NIH4KS,NUMST ,NUM8A , 

*  NUMAD ,  NUMOTH ,  QTRNUM , HPCLAS 

COhMON/FACTXX/  PCFACT<MAXCPUfhAXSIZ) ,SESFACT<MAXCPU,MAXSIZ> , 

♦  RUNFACT (MAXCPU,MAXSIZ) ,BAFACT (MAX CPU) ,WPFACT(MAXCPU,MAXSIZ> 
COTtiON/HOURXX/  H0URST(24)  ,H0URAD(24)  ,H0URBA(24) 

ONION/UNITS/  NCRL R  ,NPRNT  ,NINPUT  ,NOUT 

C 

CXXXX  OPEN  FACTOR  FILE 

FILENh*'FACTORV/FILEID<  s  1) 

CALL  OPNINPCFILEMI^F') 

C 

CXXXX  READ  FACTOR  FILE 

READ<NINPUT,10)  I,J,K 

IF  (< I. NE. NUMCPU)  .OR. <J.NE. NUMCLS). OR. (K.NE.NUMSIZ) )  THEN 
NRITE(NPRNT ,  S) 

STOP 
END  IF 

READININPUT  ,X) 

READ (N INPUT, 2*)  DAYSST , DAYSAD , DAYSGA 
REAO(N  INPUT,  X) 

READ(N INPUT  ,30)  HOURST ,HOURAD , HOURBA 
REAO(N  INPUT  ,X) 

DO  2B8  1-1, NUMCLS 

do  iee  j*i,numsiz 

READ (N INPUT, 20)  SESFACT(I,J> ,PCFACT<I ,J) , RUNFACT ( I , J) 
100  CONTINUE 
200  CONTINUE 

READININPUT  ,X) 

DO  300  1*1, NUMCPU 

REAO<N INPUT, 20)  BAFACT(I) 

300  CONTINUE 

READ(NINPUT,X) 

00  900  1-1, NUMCPU- 1 

READ<N INPUT, 20)  <WPFACT(I ,J) ,  J*1,NUMSIZ) 

900  CONTINUE 

CLOSE (N INPUT, ERR-700) 

RETURN 

700  CALL  CLSERRIFILEND 
C 

CXXXX  FORMAT  STATEMENTS 

9  FORMAT ('  I' /FACTOR  TABLES  DOES  NOT  MATCH  INPUT  DIMENSIONS') 

10  F0RMAT<3I9) 

20  FORMAT! 10X.7F10. 4) 

30  FORMAT! 10X,8F8. 4) 

END 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx*xxxxxxxxxxxxx 


c  x 

C  Name:  RDFMT 1  X 
C  Module  Number:  1.C.13  X 
C  Function:  Reade  and  edits  -format  1  input  -files.  X 
C  Input  Parameters:  none  X 
C  Output  Parameters:  LOCAT, INSTUD, WORK, INPC.INBA  X 
C  Common  Blocks/Variables  Used:  DIMEN/QTRNUM  X 
C  FLAGS/ECHOFG  X 
C  NAMES/LOOMS  X 
C  UNITS/NPRNT ,N1NPUT  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  RDERR  X 
C  Cal  I ing  Modul es:  REGWRK  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  RDFMT 1 < LOCAT , INSTUD ,  WORK , INPC , I NBA) 

PARAMETER  <h¥D0_0Cs*3,MAXWKS=l  1  ,hWXCPU=d,MAXCLS=4,MAXSIZ=6) 

C 

CHARACTER  QTR(4) X 1 ,CGJRSEX7,WORK<3,MAXNKS) X 1 
REAL  INPC , I NBA 
INTEGER  TSTUDS<4) 

C 

CXXXX  COMMON  BLOCKS 

INTEGER  OTRNUM ,  WPCLAS 

COMMON/DIMEN/  NUMLOC , NUMCPU  ,NUMCLS  ,NUMS I Z  .NUM4KS  ,NUMST  ,NUMBA , 

♦  NUMAO,NUMOTH, OTRNUM, WPCLAS 
LOGICAL  ECHOFG , TABF6 , FRQARV , NRTOUT 
COMMON/FLAGS/  ECHOFG , TABFG , FRQARV , WRTOUT 
CHARACTERX8  CLASMi ,  COMPNM  ,  LOOMS ,  S I ZNMS ,  TYPLOC ,  PERNMS 
COMMON/NAMES/  CLASNM(MAXCLS)  ,  COMPNM  (MAX CPU)  ,LOCNMS<MAXLOC)  , 

♦  SIZNMS(MAXSIZ)  .TYPLOC (MAXLOC)  ,PER»t1S<  IS) 

COMMON/UNITS/  NCRDR,NPFWT,NINPUT,NOUT 

C 

10  READ<NINPITT,500,END=100,ERR=208)  LOCAT, COURSE, QTR.TSTUDS, WORK, 

♦  INPC, I NBA 

IF  (QTR( OTRNUM)  .EQ.  'X')  THEN 
INSTUD“TSTUDS<  OTRNUM) 

IF  (ECH0F6)  WRITECNPRNT ,5 10)  L0CNMS(L0CAT) , COURSE, 

♦  INSTUD, WORK, INPC, INBA 
RETURN 

END  IF 
60  TO  10 
C 

100  LOCAT-0 
RETURN 

200  CALL  RDERR(NINPUT) 

C 

CXXXX  FORMAT  STATEMENTS 

900  FORMAT ( 2 1 , IX , A7 , 1X.4A1, 1X,4I2, 11(  1X,A1,A1,A1) ,2<1X,F4.2)) 

910  FORMAT<'  ' ,20X,A8, 1X,A7,I4,3X, 1 1( 1X,A1,A1 ,A1> ,2F8.3) 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

C  X 


C  Name:  RDFKT2  X 
C  Module  Number:  1.C.14  X 
C  Function:  Reads  and  edits  -format  2  input  files.  X 
C  Input  Parameters:  none  X 
C  Output  Parameters:  LOCAT , INSTUD, PERCNT , LDFACT , INPC  X 
C  Common  81ocks/Variables  Used:  DIMEN/QTRNUM  X 
C  FLAGS/ECHOF6  X 
i.  NAMES/LOOWS  X 
C  QTROEF/QTRhMS  X 
C  UNITS/NPRNT ,NINPUT  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  ROERR  X 
C  Calling  Modules:  HPNORK  X 
C  * 


CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

C 

SUBROUTINE  RDFMT2< LOCAT , INSTUD , PERCNT , LDFACT , INPC) 

PARAMETER  (MAXL0O3  ,MAXWKS«  1 1  ,MAXCPl>=4  ,MAXCLS=<S  ,MAXS  I  Z=<S> 

C 

REAL  INPC , PERCNT , LDFACT (MAXMKS) 

CHARACTER  0TRX2 
C 

CXXXX  COMMON  BLOCKS 

INTEGER  QTRNUM , NPCLAS 

COFMON/DIMEN/  NUMLOC  .NUMCPU  .NUMCLS  ,NUMSIZ  ,NUtMKS  ,NUMST  ,NUMBA , 

♦  NUMAD  jNUMOTH ,  QTRNUM  f  MPCLAS 
LOGICAL  ECHOFG ,TABF6 , FRQARV .WRTOUT 
COMMON/FLAGS/  ECHOFG ,TABFG,FRQARV, WRTOUT 
CHARACTERX8  CLASN1  ,COMPNM,LQCNMS,SI ZhMS ,TYPLOC , PERNMS 
COMMON/NAMES/  CLAShMOWXCLS)  ,CCMPIM<MAXCPU>  ,LOCNMS(MAXLOC)  , 

♦  SIZNMS(MAXSIZ) ,TYPLOC(MAXLOC> ,PER**1S( 10) 

CHARACTERX2  OTRNMS 

C0H10N/QTRDEF/  GITRtMSC5) 

COfiON/UNITS/  NCRDR,NPRNT,NINPUT  ,NOUT 
C 

10  READ< N INPUT , 300 pENt>=l 00, ERR=208)  LOCAT ,QTR, INSTUD, PERCNT, 

+  LDFACT  INPC 

IF  (QTR  .EQ.  QTRM1S(  QTRNUM))  THEN 

IF  (ECHOFG)  WRITE(NPRNTI310>  LOOMS  (LOCAT) ,  INSTUD, 

♦  PERCNT, LDFACT, INPC 
RETURN 

END  IF 
GO  TO  10 
C 

100  LOCAT-0 
return 

200  CALL  RDERR(NINPUT) 

C 

CXXXX  FORMAT  STATEMENTS 

300  FORMAT! 1 1 , IX, A2, I3,F6.3, 1 1F4.2,F3.2> 

310  FORMAT ('  '  ,24X,A8, I8,F9.2,2X,  1KF3.2)  ,F8.3) 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

c  x 

C  Name:  RDFMT3  X 


noooooooooooo 


Module  Number:  1.C.15  X 

Function:  Reads  and  edits  -format  3  input  files.  X 

Input  Parameters:  none  £ 

Output  Parameters:  LOCAT, INCOMP, CLASS, SIZE, NUMUSE, INBA  £ 

Common  Blocks/Variables  Used:  DIMEN/QTRNUM  £ 

FLAGS/ECHOFG  £ 

NAMES/LOCWS ,  CQMPtti ,  CLASNM ,  S 1 2NMS  £ 

QTRDEF/QTRNMS  £ 

UNITS/NPRNT  ,NINPUT  £ 

Common  B1 odes/ Variables  Changed:  none  £ 

Modules  Called:  FIGCPU,FI6CLS,FIGSIZ,R0ERR  £ 

Calling  Modules:  DAYSFT  £ 

X 


CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

C 

SUBROUTINE  RDFMT3< LOCAT , INCOMP , CLASS .SIZE .NUMUSE , I NBA) 

PARAMETER  <IWXL0O3,MAXCPU«4,MAXCLS=4,MAXSIZ=6) 

C 

CHARACTER  PROGIOX 10 ,QTRX2,AMACHX 1 .ACLASSX 1 ,ASIZEX 1 
REAL  I NBA 

INTEGER  FIGCLS,FIGCPU,FIGSIZ 
INTEGER  CLASS, SIZE 
C 

CXXXX  COMMON  BLOCKS 

INTEGER  GTRNUM ,HPCLAS 

COMMON/DIMEN/  NUMLOC .NUMCPU , NUMCLS  ,NUMSI Z  .NUMWKS ,NUMST ,NUMBA , 

♦  NUMAD,NUMOTH  ,GTRNUM , WPCLAS 
LOGICAL  ECHOFG , TABFG , FRQARW , WRTOUT 
COMMON/FLAGS/  ECHOFG, TABFG, FRQARV, WRTOUT 
CHARACTERX8  CLASMi ,  COMPNM ,  LOOMS ,  S I ZNMS ,  TYPLOC ,  PERfMS 
COMMON/NAMES/  CLASNM ( MAXCLS)  ,C0MPM1(MAXCPU)  ,LOCNMS<MAXLOC>  , 

♦  SIZNMS(MAXSIZ) ,TYPLOC<MAXLOC) ,PER>t1S( 10) 

CHARACTERX2  QTRNMS 

COMMON/ QTROEF/  GTRNISO) 

COMMON/UNITS/  NCRDR  ,NPRNT  ,N INPUT  ,NQUT 
C 

10  READ(NINPUT,500,END»100,ERR=200)  LOCAT , PROG I D , QTR ,AMACH , ACLASS , 

♦  ASIZE , NUMUSE, INBA 

IF  ((QTR.EQ.QTRNIS(S))  .OR.  (QTR.EQ.QTRMIS(QTRNIIM)  )>  THEN 
INCQMP*FIGCPU(AMACH) 

CLASS-F I GCLS < ACLASS) 

SIZE«FIGSIZ<ASIZD 

IF  (ECHOFG)  WRITE(NPRNT,510>  LOChHS(LOCAT) .PROGID, 

♦  C0MPNM< INCOMP) , CLASNM (CLASS) ,SIZNMS(SIZE) .NUMUSE, INBA 
RETURN 

END  IF 
GO  TO  10 
C 

100  LOCAT*! 

RETURN 

200  CALL  RDERR(NINPUT) 

C 

CXXXX  FORMAT  STATEMENTS 

900  FORMATd  1,  IX, A 10,  IX, A2, 1X,3A1 ,  IX, I3.F4.3) 

910  FORMAT('  ' ,34X,3(A8,2X) ,  I4.F9.3) 


ooooooooooooooo 


END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


X 

Name:  RDFMT4  X 

Module  Number:  1.C.16  X 

Function:  Reads  and  edits  -format  4  input  files.  X 

Input  Parameters:  none  X 

Output  Parameters:  LOCNUM,TIMDAY, INCOMP, CLASS, SIZE, DAYNO  X 

Common  Blocks/Variables  Used:  DIMEN/QTRNUM  X 

FLAGS/ECHOFG  X 

NAMES/COM PMi , CLASNM , S I ZNMS , PERNMS  X 

QTRDEF/QTRMiS  X 

UNITS/NPRNT ,N INPUT  X 

Common  Blocks/Variables  Changed:  none  X 

Modules  Called:  FIGCPU,FIGCLS,FIGSIZ ,RDERR  X 

Calling  Modules:  MEEKLY, PERIOD  X 

X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  RDFMT4(L0CNUM, TIMDAY, INCOMP, CLASS, SIZE, DAYNO) 

PARAMETER  (MAXL0C=3,MAXCPU«4 ,MAKCLS=A,MAXSIZ=6) 

C 

CHARACTER  DESCRPX 10,QTRX2,AMACHX 1 , ACLASSX 1 , AS I Z EX  1 
INTEGER  FIGCLS,FIGCPU,FIGSIZ 
INTEGER  CLASS, SIZE, DAYNO 
C 

CXXXX  COMMON  BLOCKS 

INTEGER  QTRNUM , WPCLAS 

COfMON/DIMEN/  NUMLOC,NIJMCPU,NUMCLS,NUMSIZ ,NtfWKS,NUMST ,NUMBA, 

♦  NUMAD.NUMOTH,  QTRNUM,  MPCLAS 
LOGICAL  ECH0F6 ,TABF6 , FRQARV , WRTOUT 
COMMON/FLAGS/  ECHOFG, TABFG , FRQARV , MRTOUT 
CHARACTERX8  CLAShM.COMPhfi ,LOCNMS, SI Zht<S,TYPLOC , PERNMS 
COMMON/NAMES/  CLASNM (MAXCLS) ,COMPNM(MAXCPU) ,LOCNMS(MAXLOC> , 

♦  SIZNMS(MAXSIZ) ,TYPLOC(MAXLOC) ,PERfMS< 10) 

CHARACTERX2  QTRNMS 

COMION/QTRDEF/  QTRNMS (3) 

C0M10N/UNITS/  NCRDR,NPRNT,NINPUT,NOUT 
C 

10  READ<NINPUT,S00,END-100,ERR-200>  LOCNUM,DESCRP,QTR,AMACH,ACLASS, 

♦  ASIZE, DAYNO, TIMDAY 

IF  (<QTR.EQ.QTRMiS<5)>  . OR. <QTR.EQ.QTRNMS< QTRNUM)))  THEN 
INCQMP*FIGCPU(AMACH) 

CLASS-FIGCLS(ACLASS) 

SIZE»FIGSIZ(ASIZE> 

IF  (ECHOFG)  WRITE(NPRNT ,310)  PERNMS (LOCNUM) ,DESCRP, 

♦  COMPMK  INCOMP)  ,  CLASNM  (CLASS)  ,SIZN4S(SIZE)  , DAYNO, TIMDAY 
RETURN 

ENDIF 
GO  TO  10 
C 

100  LOCNUM-0 
RETURN 

200  CALL  RDCRR(NINPUT) 


CXXXX  FORMAT  STATEMENTS 

568  FORMAT ( 12, IX, A 10, IX ,A2, 1X,3A1,I5,F10.4) 

510  FORMAT  (  7  ',25X,A8,3X,4(A8,2X>  ,I6,F12.4> 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


c  x 

C  Name:  REGWRK  X 
C  Module  Number:  1.C.17  X 
C  Function:  Calls  PRTHDR  to  print  header  HDRNUM;  calls  RDFMT1  to  X 
C  read  Format  1  input  Files  and  distribute  the  input  X 
C  workload  over  the  weeks  by  calling  DSTWRK.  X 
C  Input  Parameters:  F I LEW, HDRNUM  X 
C  Output  Parameters:  none  X 
C  Common  B1 ocks/Var iabl es  Used:  DIMEN/NIH4KS  X 
C  FLAGS/ECHOFG  X 
C  UNITS/NINPUT  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  DSTWRK ,RDFMTl ,PRTHDR, FI GCPU,FIGCLS, FIGS I Z,CLSERR  X 
C  Calling  Modules:  CALSTD.CALADM  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  REGWRKtF I LEM1, HDRNUM) 

PARAMETER  (hWXWKS-ll) 

C 

CHARACTER  FILEWX7,N0RK(3,M!D<WKS) X  1 
REAL  INPC.INBA 
INTEGER  FIGCLS,FIGCPU,FIGSIZ 
INTEGER  HDRNUM, CLASS, SIZE 
C 

CXXXX  COMMON  BLOCKS 

INTEGER  QTRNUM ,  WPCLAS 

COtfiON/DIMEN/  NUMLOC  ,NUMCPU  ,NUMCLS  ,NUMSI  Z  .NUtWKS  ,NUMST  ,NUMBA , 

♦  NUMAD  ,NUMOTH ,  QTRNUM ,  WPCLAS 

LOGICAL  ECHOFG , TABFS , FRQARU , WRTOUT 
COMMON/FLAGS/  ECHOFG ,TABFG,FRQARV, WRTOUT 
COMMON/UNITS/  NCRDR,NPRNT,NINPUT,NOUT 
C 

CALL  OPNINP(FILEWVF') 

IF  (ECHOFG)  CALL  PRTHDR(F I LENM, HDRNUM) 

C 

10  CALL  RDFMTKLOCAT ,  INSTUD,  WORK,  I NPC,  I  NBA) 

IF  (LOCAT  .EQ.  0)  THEN 
CLOSE (NINPUT , ERR-300) 

RETURN 
END  IF 

DO  100  1*1 ,NUMWKS 

IF  <HORK( 1,1)  .EQ.  '  ')  GO  TO  100 
INCOMP-FIGCPU(WORK( 1,1)) 

CLASS-F I GCLS< WORK < 2 , I ) ) 

SIZE-FIGSIZ(W0RK(3, I) ) 

I WEEK- I 

CALL  DSTWRK (LOCAT, I WEEK, INSTUD, I NCGMP, CLASS, SIZE, INPC,INBA) 
100  CONTINUE 
GO  TO  10 


c 

388  CALL  CLSERR(FILEMI) 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


C  X 
C  Nu«i  SRTWRT  X 
C  Module  Number:  1.6.3  X 
C  Function:  Sorts  weekly  end  periodic  records  on  time,  then  writes  X 
C  output  -tile  CONSTy.  X 
C  Input  Ptrameters:  ICOLNT,FILENi  X 
C  Output  Perimeters:  none  X 
C  Common  Blocks/Veriebles  Used:  FLAGS/WRTQUT , FRQARV  X 
C  UNITS/NPRNT  ,NOUT  X 
C  TOTALS/spece  used  X 
C  Common  Blocks/Veriebles  Changed:  none  X 
C  Modules  Celled:  none  X 
C  Cel  1 ing  Modules:  CONREQ  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  SRTWRTd  COUNT  .FILEhM) 

PARAMETER  (MAXL0C=3,MAXWKS«  1 1  ,MAXCPt>=6  ,MAXCLS=6  ,MAXS  I  Z=6> 

C 

CHARACTER  FILENMX7 

DIMENSION  SORTARI 1080,5) , I SRTAR< 1000,5) ,ISORT<1080) 

C 

CXXXX  COMMON  BLOCKS 

LOGICAL  ECHOFG ,TABFG ,FRQARV , WRTGUT 

COTtlON/FLAGS/  ECHOFG,  TABFG,  FRQARV,  NRTOUT 

COMMON/TOTALS/  TOTINT(mXLOC,tttXNKS,MAXCPU,MAXCLS,MAXSIZ>  , 

♦  TOTBAT (MAXLOC ,MAXNKS ,MAXCPU ,MAXCLS ,MAXSI Z> , 

♦  TOTPC (MAXLOC . MAXWKS , MAXCPU , MAXCL  S , MAXS I Z ) 

COttiON/UNITS/  NCRDR  ,NPRNT  ,NINPUT  ,NOUT 

EQUIVALENCE  (SORTAR( 1 , 1) ,ISRTAR( 1, 1) ,TOTINT( 1 , 1 , 1 , 1 , 1) ) 

C 

SWITCH*  1. 

DO  100  I»l,ICOUNT 
ISQRT(I)»I 
100  CONTINUE 

200  IF  (SWITCH  .EQ.  1.)  THEN 
SWITCH* . 

DO  300  I-2,IC0UNT 

IF  (SORTARdSORTCI)  ,  1)  .LT.  SORTARdSORT(I-l)  ,1)>  THEN 
ITEM  P*I  SORT  d> 

ISORT(I)-ISORTd-l) 

I  SORT  ( I  - 1)  « I  TEMP 
SWITCH- 1. 

ENDIF 

308  CONTINUE 
GO  TO  280 
ENDIF 
C 

CXXXX  WRITE  CONSTANT  FILE 
IF  (NRTOUT)  THEN 

DO  400  I-1,IC0UNT 


WRITE(NOUT)  SORTAR<ISORT<I) ,1) , <ISRTAR<ISORT<D  ,J>  ,J=2,5) 
409  CONTINUE 

END  IF 

IF  <FRQARV)  THEN 

WRITE<NPRNT ,500)  FILEhM 
DO  450  I =1,1 COUNT 

MRITE<NPRNT,510)  SORTAR< I SORT  <  I)  ,  1)  , 

♦  <ISRTAR<ISORT<D  ,J>  ,  J=2,5) 

450  CONTINUE 

END  IF 
RETURN 
C 

CXXXX  FORMAT  STATEMENTS 

509  FORMATS  1" , 'CONSTANT  FILE:  ",A7,/,37X," TIME",19X, 

♦  "NUMBER  COMPUTER  CLASS  SIZE") 

519  FORMAT< "  ",32X,F10. 1,4110) 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
c 

C  Nam*  i  MEEKLY 
C  Module  Number:  1.4.1 

C  Function:  Calls  PRTHDR  to  print  header  HDRNUM|  calls  RDFMT4  to 
C  read  input  File  WEEKREQx  and  write  each  input  record 

C  to  an  array  incrementing  the  day  number  by  7  to  create 

C  11  records. 

C  Input  Parameters:  HORNUM,  I  COUNT ,FILENM 
C  Output  Parameters:  none 

C  Camion  Blocks/Variables  Used:  DIMEN/NIM«IKS 
C  FLAGS/ECHOFG 

C  TOTAL S/a 1 1  space 

C  Common  Blocks/Uariables  Changed:  none 
C  Modules  Called:  RDFMT4, PRTHDR 
C  Calling  Modules:  CONREQ 
C 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
c 

SUBROUTINE  MEEKLY <  F I LEM1 ,  HORNUM ,  I  COUNT) 

PARAMETER  <MAXL0C»3,MA>W<S=1 1  ,MAXCPl*=4,MAXCLS=4,MAXSIZ=4) 

C 

CHARACTER  FILENMX7 

DIMENSION  S0RTAR< 1009,5) ,ISRTAR< 1900,5) 

INTEGER  HORNUM,  LOCNUM,  INCOMP,  CLASS,  SI  ZE,DAYN0,  LINES 
C 

CXXXX  COmON  BLOCKS 

INTEGER  QTRNUM , WPCLAS 

COmON/DIMEN/  NUMLOC ,NUMCPU ,NUMCLS  ,NUMSI Z  ,NUtMKS  ,NUMST  ,NUMBA , 

♦  NUMAD.NUMOTH,  QTRNUM,  WPCLAS 
LOGICAL  ECHOFG ,TABFG , FRQARV ,NRTOUT 
COmCN/FLAGS/  ECHOFG, TABFG,FRQARV, WRTOUT 
COtWON/TOTALS/  TOTINT(MAXLOC,MAXWKS,MAXCPU,MAXCLS,MAXSIZ)  , 

♦  TOTBAT<MAXLOC,MAXWKS,MAXCPU,MAXCLS,MAXSIZ) , 

♦  TOTPC<MAXLOC ,MAXHKS ,MAXCPU ,MAXCLS ,MAXSI Z) 

EQUIVALENCE  <S0RTAR<1,1) ,ISRTAR<1,1) ,TOTINT< 1,1,1, 1,1)) 

C 

IF  < ECHOFG)  CALL  PRTHDR < F I LEN1 , HORNUM) 


D-31 


WWIKIKlKKiKIIOKXXDnKXWIK 


c 

10  CALL  RDFMT4<L0CNUM,TIMDAY, INCOMP, CLASS, SIZE, DAYNO) 

IF  (LOCNUM  .EQ.  8)  RETURN 

nn  idA  i& i  (jimiikc 

XT I  ME* ( REAL( DAYNO) X 84400.) 4TIMDAYX3600. 

I COUNT* I COUNT* 1 
SORTAR( ICOUNT ,1)*XTIME 
I SRTAR ( I COUNT ,  2)  =L  OCNUM 
I SRTAR ( I COUNT , 3> * I NCOMP 
I SRTAR ( I COUNT , 4) -CLASS 
I SRTAR ( I COUNT , 5) =S I ZE 
DAYNO* DAYNO* 7 
100  CONTINUE 
GO  TO  10 
END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

c 

C  Nan*:  NPWORK 
C  Module  Number:  1.C.18 

C  Functions  Cells  PRTHDR  to  print  header  HDRNUM;  opens  input  file 
C  FILENMj  reads  input  file  STUDMPx  to  distribute  word 

C  processing  load  to  TOTAL  arrays. 

C  Input  Parameters!  FILENM, HDRNUM 
C  Output  Parameters:  none 

C  Common  Blocks/Variables  Used:  DIMEN/NUtWKS 
C  FLAG S/EC HOF G 

C  UNITS/NINPUT 

C  Common  Blocks/Uariables  Changed:  none 
C  Modules  Called:  D I STMP, PRTHDR, RDFMT2.CLSERR 
C  Calling  Modules:  CALSTD.CALAOM 

A 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  WPWORK(FILEhW, HDRNUM) 

PARAMETER  <MA)WK^11) 

C 

CHARACTER  FILENMX7 
REAL  PERCNT,LDFACT<MAXNKS) , INPC 
INTEGER  HDRNUM 
C 

CXXXX  COMMON  BLOCKS 

INTEGER  QTRNUM ,  NPCLAS 

CQttlON/DIMEN/  NUMLOC,NUMCPU,NUMCLS,NUMSIZ ,NUMWKS,NUMST,NUMBA, 

♦  NUMAD,NUMOTH,  QTRNUM,  WPCLAS 

LOGICAL  ECH0F6,TABFG,FRQARV,WRT0UT 
COMMON/FLAGS/  ECH0F6 , TABFG , FRQARV , WRTOUT 
COMMON/UNITS/  NCRDR  ,NPRNT  ,NINPUT  ,N0UT 
C 

CXXXX  OPEN  HORD  PROCESSING  REQUIREMENTS  FILE 
IF  (ECHOFG)  CALL  PRTHDR (FILENM, HDRNUM) 

CALL  OPNINP(FILENVF') 

C 

CXXXX  PROCESS  FILE 

10  CALL  R0FNT2<L0CAT, INSTUD, PERCNT,LDFACT, INPC) 

IF  (LOCAT  .EQ.  0)  THEN 


CLOSE (NINPUT ,ERR=300> 

RETURN 

ENOIF 

INSTUD- INSTUDXPERCNT 
C 

CXXX*  DISTIBUTE  LOAD  OVER  11  MEEKS 
DO  108  I=l,Nlf*IKS 

XT(JT=REAL(  INSTUD)  XLDFACT  ( I) 

XPOXTOTX INPC 
XINT-XTOT-XPC 
I WEEK- I 

CALL  DISTWP<LOCAT,IWEEK,XINT,XPO 
100  CONTINUE 
GO  TO  10 
C 

300  CALL  CLSERR(FILENi) 

END 

cxmmm*x*xxx*xxxxxx*x*xxxxxx**xxxx*xx*xx***xxxxx*x*x***xxxxxxxx* 


c  X 
C  Nimi  NRTFIL  X 
c  Module  Number i  l.C.l?  X 
C  Function!  Calculates  and  writes  the  arrival  and  frequency  files  X 
C  input  parameters.  X 
C  Input  Parameters!  TOTAL, LOCCNT ,DAARIV, HRARIV, I FACT  X 
C  Output  Parameters!  none  X 
C  Common  Blocks/Variables  Used!  DIMEN/NUWfKS,NUMCPU,NlJMSIZ,NUMCLS  X 
C  FACTXX/SESFACT , RUNFACT  X 
C  FLA6S/FRQARV , WRTOUT  X 
C  NAMES/LOOMS ,  COMPNM ,  CLASMi  X 
C  UNITS/NPRNT  ,NOUT  X 
C  Common  Blocks/Variables  Changed!  none  X 
C  Modules  Called!  none  X 
C  Calling  Nodules!  BATCH , CALSTD , CALADM , CALOTH  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  WRTFILtTOTAL, LOCCNT, DYARIV.HRARIV, IFACT) 

PARAMETER  (MAXL0O3 ,MA)WKS»  1  l,MAXCPl>«d,MAXCLS»d,tW<SIZ»6) 

C 

REAL  T0TAL<MAXLOC ,MAXWKS ,MAXCPU ,MAXCLS ,MAXSI Z) ,DYARIV(/>  , 

♦  HRAR1V(24) , OBSFRQ(MAXSIZ) ,FREQ<MAXLOC,MAXCPU,MAXCLS,MAXSIZ) , 

♦  DAYS<7) ,H0URS(MAXL0C,7,24) ,NUMSES 
C 

CXXXX  COtflON  BLOCKS 

INTEGER  QTRNUM,WPCLAS 

COMMON/DIMEN/  NUMLOC,NUMCPU,NUMCLS,NUMSIZ,NUtMKS,NUMST,NUMBA, 

♦  NUMAD jNUMOTH , QTRNUM , WPCLAS 

COMMON/FACTXX/  PCFACT (MAXCPU ,MAXSIZ>  ,  SES FACT  (MAX CPU  ,MAXSI  Z)  , 

♦  RUNFACT (MAXCPU ,MAXSI Z) ,BAFACT(MAXCPU> ,WPFACT(MAXCPU,MAXSIZ) 
LOGICAL  ECHOFG ,TABFG , FRQARV , WRTOUT 

COMMON/ FLAGS/  ECHOFG ,TABFG , FRQARV , WRTOUT 

CHARACTER X 8  CLASMI,C0MPM1, LOOMS, SI ZM1S,TYPL0C,PERtt1S 

COMMCN/NAMES/  CLASMI ( MAXCLS)  ,C0MPM1( MAXCPU)  ,LOCNMS<MAXLOC>  , 

♦  SIZNMS(MAXSIZ) ,TYPLOC(MAXLOC) ,PERM1S< 10) 

COMMON/ UNITS/  NCRDR.NPRNT,  NINPUT,  NO  ITT 


c 


IF  (WRTOUT)  WRITE(NOUT)  NUMCPU,NUHCLS,NUMSI2 
00  900  I-l.NUMWKS 

DO  790  J* 1 ,LOCCNT 

IF  (FRttRY)  NRITE(NPRNT,910)  I,L0C)t1S(J) 


TOTSES-0.0 

DO  490  K=1,NUMCPU 

DO  350  L«1,NUMCLS 

DO  399  M*1  ,NUMSIZ 

IF  < I FACT  .EQ.  1)  THEN 

NUMSES-TOTAL ( J , I , K , L , M) X SESFACT ( L ,M> 

ELSE 

NUMSES-TOTAL  (J,  I  ,K,L,M)  *  RUN  FACT  (L,M) 
END  IF 

TOTSES-TOTSES+NUMSES 
FREQ<  J , K , L ,M) -NUMSES 
300  CONTINUE 

350  CONTINUE 

400  CONTINUE 

COUNT-0.0 

IF  (FRQARV)  WRITE(NPRNT,920> 

DO  550  K»1,NUMCPU 

IF  (FRQARV)  WRITE(NPRNT,930)  COMPMKK) 

DO  500  L- 1 , NUNCLS 

DO  459  jNUMSIZ 

IF  (TOTSES  .QT.  9.0)  THEN 

0B3FRQ(N) *FREQ< J,K,L,M) /TOTSES 
COUNT-OBSFRQ(M)  ♦  COUNT 


ELSE 

OBSFRQ(M)«0.0 
END  IF 

FREQ(J,K,L,M)  -COUNT 
459  CONTINUE 

IF  (FRQARV)  THEN 

WRITE(NPRNT,940)  CLASNM(L) , (OBSFRQ(K) , 

♦  M-1,NJ1SI2>  , (FREQ! J,K,L,M)  ,  tt*l,NUMSIZ> 

ENDIF 

500  CONTINUE 

550  CONTINUE 

IF  (FRQARV)  WRITE(NPRNT ,969) 

DO  450  K-1,7 

DAYS< K> -TOTSESXDYARIU(K) 

DO  499  L-1,24 

HOURS! J , K , L) -DAYS ( K) XHRARIV(L) 

409  CONTINUE 

IF  (FRQARU)  WRITE(NPRNT ,970)  K, (HOURS! J ,K,L) ,  L-1,24) 


450 

709 


759 


CONTINUE 
CONTINUE 
IF  (WRTOUT)  THEN 

00  759  J-l ,LOCCNT 

WRITE(NOUT)  !!!FREO(J,K,L,H) ,  M»1,NUMSI2),  L-l, 
NUHCLS),  K-l.NUMCPU) 

CONTINUE 
DO  859  J-l, 7 

DO  800  K>1,L0CCNT 


D-34 


WRITE(NOUT)  <HOURS(K, J,L> ,  L=l,24) 

891  CONTINUE 

859  CONTINUE 

ENDIF 
999  CONTINUE 
RETURN 
C 

CXXXX  FORMAT  STATEMENTS 

919  FORMAT('9','WEEK:  ",12,4X,A8) 

929  FORMAT ( "  DISTRIBUTION  FREQUENCY",/,/, 

♦  3X, " COMPUTER  CLASS ' , 22X , ' Ofc  ERVED  FREQUENCY ' , 30X , 

♦  "CltflULATIVE  FREQUENCY") 

939  FORMAT  < ' 0 " f  2X ,  A8) 

949  FORhAT<"+',12XlA8,4Xf5F8.4,10X>5F8.4,//,18X> 

940  FORMAT< "0" , "  ARRIVAL  RATES" ,/,/, 

♦  IX, "DAY  «  0000  0100  0200  9300  0406  0590  0600 

♦  "  0799  0890  0900  1009  1109",/,8X,"  1200  1390 

♦  "  1499  1580  1400  1700  1890  1990  2000  2109", 

♦  "  2290  2390") 

979  FORMAT ("  " ,2X,I 1,4X, 12F7.2,/, 10X, 12F7.2) 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


C  X 
C  Nuti  FIGCLS  X 
C  Module  Number :  l.F.l  X 
C  Function:  Search*  CLASID  array  for  class  ID.  Returns  an  X 
C  integer  postion.  X 
C  Input  Parameters:  CLASS  X 
C  Output  Parameters:  FIGCLS  X 
C  Common  Blocks/Variables  Used:  DIMEN/NUMCLS  X 
C  IDS/CLASID  X 
C  UNITS/NPRNT  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  none  X 
C  Calling  Modules:  REQWRK,RDFMT3,RDFKT4  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

FUNCTION  FIGCLS( CLASS) 

PARAMETER  <MAXCPl>*6,MAXCLS-6,MAXSIZ-6> 

C 

INTEGER  FIGCLS 
CHARACTER  CLASSX1 
C 

CXXXX  COMMON  BLOCKS 

INTEGER  QTRNUM  ,NPCLAS 

COMMQN/DIMEN/  NUMLOC,NUMCPU,NUMCLS,NUMSIZ ,NUMMKS,NUMST ,NUMBA, 

♦  NUMAO ,NUMOTH , QTRNUM ,HPCLAS 

CHARACTERX 1  CCMPID, CLASID, SIZID8 

COMMON/ IDS/  COMP ID (MAX CPU) , CLASID (MAXCLS) ,SIZIDS<MAXSIZ) 
COTtlON/UNITS/  NC RDR.NPRNT.N INPUT, NOUT 
C 

00  199  I-1,NUMCL8 

IF  (CLASS  .EG.  CLASID(I))  THEN 
FIGCL9-I 


RETURN 
ENDIF 
199  CONTINUE 
C 

CXXXX  PRINT  ERROR 

NRITE(NPRNT , 299)  CLASS 
STOP 

299  FORMAT < '  XXX  ERROR  XXX  ',AI,'  COMPUTER  CLASS  NOT  FOUND') 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
c 

C  Nan*:  FIGCPU 
C  Module  Number:  1.F.2 

C  Function:  Search*  COMPID  array  for  computer  ID.  Returns  an 
C  integer  postion. 

C  Input  Parameters:  INCOMP 
C  Output  Parameters:  FIGCPU 
C  Common  Blocks/Variables  Used:  DIMEN/NUMCPU 
C  IDS/COMPID 

C  UNITS/NPRNT 

C  Common  Blocks/Variables  Changed:  none 
C  Modules  Called:  none 
C  Calling  Modules:  REGWRK,RDFMT3,RDFMT4 
C 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

FUNCTION  FIGCPU(AMACH) 

PARAMETER  (MAXCPl><S  ,httXCL9»6  ,MAXSI  Z=6) 

C 

INTEGER  FIGCPU 
CHARACTER  AMACHX1 
C 

CXXXX  COtftUN  BLOCKS 

INTEGER  QTRNUM , WPCLAS 

COMMON/D  I  MEN/  NUMLOC  ,NUMCPU ,  NUMCLS  ,NUMS  I Z  ,NUM«KS  ,NUMST  ,NUM8A , 

♦  NUMAD  ,NUMGTH ,  QTRNUM  ,MPCLAS 
CHARACTERX 1  COMPID, CLASID,SIZIDS 

COMMON/ IDS/  COMPID(MAXCPU) ,CLASID(MAXCLS> ,SIZIDS(MAXSIZ) 
COttlON/UNITS/  NCRDR  ,NPRNT  ,N INPUT  ,NOUT 
C 

DO  198  I-l.NUMCPU 

IF  (ttttCH  .EQ.  COMP  I  DO))  THEN 
FIGCPlhl 
RETURN 
ENDIF 
199  CONTINUE 
C 

CXXXX  PRINT  ERROR 

NRITE<NPRNT,299>  AMACH 
STOP 

299  FORMATO  XXX  ERROR  XXX  ',AI,'  COMPUTER  ID  NOT  FOUND') 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
c  * 

C  Name:  FIGSIZ  X 


x  «  HOD  x  mm  X  K  HOKiK  ik  a 


oooooooooo 


C  Module  Number:  1.F.3  X 

C  Function:  Searchs  SIZIDS  array  for  size  ID.  Returns  an  X 

integer  postion.  X 

Input  Parameters:  SIZE  X 

Output  Parameters:  FIGS1Z  X 

Common  Blocks/Variables  Used:  DIMEN/NUMSIZ  X 

IDS/SIZIDS  X 

UNITS/NPRNT  X 

Common  Blockt/Variables  Changed:  none  X 

Modules  Called:  none  X 

Calling  Modules:  REGWRK,RDFMT3,RDFMT4  X 

X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

FUNCTION  FIGSIZ(SIZE) 

PARAMETER  (MAXCPIK6  .MAXCLS-4  ,MAXSIZ=6) 

C 

INTEGER  FIGSIZ 
CHARACTER  SIZEX1 
C 

cxxxx  canon  blocks 

INTEGER  QTNNUM'HPCLAS 

COWON/DIMEN/  NUMLOC.NlMCPU.NLMCLS.NUMSIZ.NUtWKS.NUMST.NUMBA, 

♦  NUMAD,NUMOTH,GTRNUM,WPCLAS 
CHARACTERX 1  COMPID.CLASID,  SIZIDS 

COMMON/ IDS/  CQMPID(MAXCPU) ,CLASID(MAXCLS) f SIZIDS(MAXSIZ) 
C0H10N/UNITS/  NCRDR  ,NPRNT  ,NINPUT  ,NOUT 
C 

DO  IBB  I-1,NUMSIZ 

IF  (SIZE  .EQ.  SIZIDS(I))  THEN 
FIGSIZ*! 

RETURN 
ENDIF 
1M  CONTINUE 
C 

CXXXX  PRINT  ERROR 

NRITE(NPRNT t28B)  SIZE 
STOP 

299  FORMAT < 7  XXX  ERROR  XXX  ',A1,'  COMPUTER  SIZE  NOT  FOUND') 

END 


The  AFIT  network  simulation  model  per-forms  a  discrete 
simulation  of  the  AFIT  ADP  network.  This  simulation  may 
encompass  an  entire  school  quarter  or  portion  of  week(s) 
within  the  quarter.  The  hardware  configuration  is  defined 
by  the  use  of  SLAM  network  statements  and  an  input  factor 
file.  The  user  arrivals  and  resource  demands  for  each 
resource  location  of  the  network  are  provided  by  input  files 
created  by  the  AFIT  workload  model. 

The  model  was  developed  for  the  AFIT  ADP  network 
system}  however,  it  may  be  easily  configured  for  virtually 
any  ADP  network.  All  of  the  network  resources  (computers, 
terminals,  card  readers,  and  printers)  are  defined  by  SLAM 
network  statements  and  an  input  file.  The  only  software 
module  requiring  modifications  for  a  configuration  change  is 
Function  FIGRUN  which  returns  run  times  for  each  computer 
resource  attached.  This  user's  guide  reflects  the  current 
AFIT  configuration.  Table  E.l  lists  the  resources  and  their 
mnemonics  used  throughout  this  guide.  Computer  resources 
and  their  ports  are  defined  by  global  variables  as  described 
1 ater . 

The  model  is  driven  by  the  arrival  rates  and  cumulative 
frequency  distributions  provided  for  each  input  location 
(interactive  and  batch)  of  the  network.  These  files  are 
created  by  the  AFIT  workload  model.  Therefore,  the  network 
model  must  be  configured  identically  to  the  workload  model. 
Please  reference  the  AFIT  Morkload  Model  User's  Guide  for  a 
description  of  the  workload  model  configuration. 


Mnemonic. 


Terminal s: 

STUD  125  Student  Building  125 

STUD640  Student  Building  640 

STUD641  Student  Building  641 

FAAD125  Faculty/Administrative  Building  125 

FAAD640  Facul ty/Admini strati ve  Building  640 

FAAD641  Faculty/Administrative  Building  641 

S0FT125  Software  Development  Building  125 

Card  Readers: 

RBT125CR  Remote  Batch  Station  Building  125 
HAR80CR  Harris  80  Building  640 

RBT641CR  Remote  Batch  Station  Building  641 

HAR500CR  Harris  500  Building  641 

Printers: 

RBT125LP  Building  125  Line  Printer 

RBT641LP  Building  641  Line  Printer 

HAR80PEN  Harris  80  Pen  Plotter 

HAR80LP  Harris  80  Line  Printer 

HAR80PP  Harris  80  Printer/Plotter 

SSCPP  WAX  11/780  Printer/Plotter 

HAR500LP  Harris  500  Line  Printer 


Table  E.l  Resource  Definitions. 


This  user's  guide  used  in  conjunction  with  the  Network 
Model  Maintenance  Guide  provides  all  the  data  required  to 
operate  the  model.  Descriptions  of  all  the  input  files  are 
provided.  The  input  variables  description  and  format  are 
provided.  Creation  and  modification  of  the  SLAM  network 
structure  is  reviewed.  Lastly,  the  CDC  CYBER  job  control 
inputs,  error  conditions,  and  limitations  of  the  model  are 
reviewed. 


Inputs 

Input  files  to  the  AFIT  network  model  consist  of  the 
five  files  created  by  the  workload  model,  a  factor  file  to 


STUDxxy  Student  Arrival  Rates  and  Frequency  Distributions 
ADMNxxy  Faculty/Administrative  Arrival  Rates  and  Freq¬ 
uency  Distributions 

OTHRxxy  Software  Development  Arrival  Rates  and  Frequency 
Distributions 

BTCHxxy  Batch  Arrival  Rates  and  Frequency  Distributions 
CNSTxxy  Periodic  Requirements 

xx  -  quarter  ID 
y  -  unique  alpha  ID 

Table  E.2  Network  Model  Input  Files. 

initialize  variables,  and  namelist  inputs  (Table  E.2) .  The 
file  names  of  the  files  created  by  the  workload  model  con¬ 
sist  of  seven  characters.  The  first  four  characters  are 
constant.  The  next  two  characters  identify  the  quarter 
<WI , SP,SU,  or  FA)  and  the  last  character  is  an  unique 
identifier  provided  by  the  user  of  the  workload  model.  The 
factor  file's  name  is  user  defined. 

Work  1 nari  Model  Eiles.  Five  files  are  created  by  the 
workload  model  to  drive  the  network  model.  Four  files 
consist  of  arrival  rates  and  cumulative  frequency  distribu¬ 
tions  for  all  network  input  locations.  The  last  file  de¬ 
fines  periodic  requirements  such  as  scheduling  programs 
which  could  not  be  included  in  the  other  file's  generation. 
These  periodic  requirements  are  routed  to  the  input  loca¬ 
tions  as  required.  Please  reference  the  Network  Model 
Maintenance  Guide  if  the  input  locations  are  modified. 

Fac  tor  Ella .  A  factor  file  must  be  created  to 
initializei  the  mean  and  standard  deviation  of  various 
distributions  required  to  drive  the  simulation)  probability 


Forma  <• 


Description  -  Var i able  Names 


name! ist 

8X , 12F6.4 

8X , 12F6.4 

8X| 12F6.4 

8X , 4F5 .  1, 
2F10.4.4F5. 1 
8X , 2F 10.4 

8X, 12F6.4 
8X, 12F6.4 


8X.F8.0 


8X , 12F6.4 
8X , I2F6.4 


8X , 3F8 . 0 , F8 . 4 


8X  ,18 
1  ist 
8Xf  18 

8X,  18 
1  ist 
8X,  18 

8X, 12F6.4 


name! ist 


M-DIMEN 

XXXX  ANY  CODES  XXXX 
CLS  X  (ANYDST) 

XXXX  'BATCH'  PROBABILITIES  IN  INTERACTIVE  XXX 
CPU  X  (BAT I NT) 

XXXX  DIALUP  PROBABILITIES  XXXX 
CYBER  (DIALUP) 

XXXX  DISTRIBUTION  TABLE  XXXX 
CLS  SIZ  (DISTRB( 1-5)) 

(DISTRB(6>> 

XXXX  WORD  PROCESSING  PROBABILITIES  XXXX 
ONEJOB  ( ONE JOB) 

CLS  A-F  (WPPROB) 

XXXX  PRINTER  SPEEDS  XXXX 
PRINTER  (PRTSPD) 

XXXX  PRINTER  PROBABILITIES  XXXX 
DIALUP  ( DUPRT) 

PRT  LOC  (PRTTAB) 

XXXX  CPU  INITIALIZATION  UP/DOMM,  MPL,  _ 

COMPUTER  (f  1  ag,mpl  , ports, OfJCPU) 

XXXX  COMPUTER  SCHEDULES  XXXX 
COMPUTER  (sequence  number) 

<  SCHCPU) 

STOP  0 

XXXX  BATCH  LOCATION  SCHEDULES  XXXX 
CARD  RDR  (sequence  number) 

(SCHBAT) 

STOP  0 

XXXX  TERMINAL  WAIT  PROBABILITIES  BY  LOC  XXXX 
LOC  (TRMWAT) 

XXXX  PRINTERS  ASSOCIATED  WITH  GATES  XXXX 
&£  PRT  GAT  (  I PRGAT) 

XXXX  CARD  READERS  ATTACHED  TO  COMPUTERS  XXXX 
&CARDGAT  (ICRGAT) 


Table  E.3  Network  Factor  File  Format. 


mass  -functions  when  a  routing  decision  needs  to  be  made;  and 
various  tables  to  define  the  complex  relationships  between 
computers,  locations,  and  so  forth.  The  factor  file  format 
is  illustrated  in  Table  E.3  and  an  example  is  provided  in 
Table  E.4.  Further  descriptions  of  the  variables  may  be 


found  to  the  Network  Model  Data  Dictionary  (Appendix  G> 


VLDIMEN  NUMLOO  IS  ,NUMCPU*4  ,NWCLS=6  ,NUMSI  Z=5  ,NUfRT=7  ,NUMGAT=4 , 
IBATST=8,IHPCLS=6  UN) 

m  any  cooes  m 

CLSA  1.25  0.58  8.75  1.88 

•  •  ■  i  a  a 

III  'BATCH'  PROBABILITIES  IN  INTERACTIVE  III 
CPU  1  8.58  8.58  8.58  8.58  8.58  8.58 


III  DIALUP  PROBABILITIES  III 

CYBER  8.8  8.8  8.8  8.8  8.8  8.8  8.8  8.18  8.18  8.85  8.85  8.85 

8.85  8.85  8.85  8.85  8.15  8.28  8.25  8.25  8.38  8.38  8.35  8.38 


III  DISTRIBUTION  TABLE  III 

A  1  688  188  5  1  2.1  8.5  5  2  188  188 

58.8  18.8 

•  a  a  •  a  a  ■  a  a  a  a  a 

a  a 

III  NORD  PROCESSING  SMITCH(PRNT)  PROBABILITIES  III 
ONE JOB  8.3 

CLS  A-f  8.25  8.28  8.15  8.18  8.85  8.85 
I9»  PRINTER  SPEEDS  III 
R8T12SLP  1888 

a  a 

III  PRINTER  PROBABILITIES  IIII 
DIALUP  8.25 


1 1 

1.88 

1.88 

1.88 

1.88 

1.88 

1.88 

1.88 

2 

8.88 

1.88 

1.88 

1.88 

1.88 

1.88 

1.88 

a 

18 

8.88 

a 

8.88 

a 

8.25 

a 

8.75 

a 

1.88 

1.88 

l!sO 

III  CPU  INITIALIZATION  UP/DOM,  MPL,  •  PORTS,  CNUCPU  IIII 
CYBER  8.  18.  58.  1.8 

a  a  a  a  a 

IIII  COMPUTER  SCHEDULES  IIII 
CYBER  1 

25288.  25288.  25288.  25288.  25288.  25288.  25288. 

85888.  85888.  85888.  85888.  85888.  85888.  85888. 

STOP  8 

IIII  BATCH  LOCATION  SCHEDULES  IIII 
RBT125CR  1 

28888.  28888.  28888.  28888.  28888.  -1.  -1. 

59488.  59488.  59488.  59488.  59488.  -1.  -1. 

STOP  8 

IIII  TEMINAL  WAIT  PROBABILITIES  BY  LOCATION  IIII 
LOC  1  8.8  8.5  8.4  8.2  8.1 

a  a  a  a  a  a  a 

IIII  PRINTERS  ASSOCIATED  NITH  GATES  -  I PRGATIGATE, PRINTER)  IIII 
kPRTGAT  IPRGAT(1>1)=1,IPRGAT(2)3)=1,IPRGAT(2,4)*1  VEND 
HU  CARD  READERS  ATTACHED  TO  COWTERS  -  ICRGAT(CPU,GATD  III 
IGARDGAT  ICRGAT(1,2)*1,ICRGAT(3,4)*1  VEX) 


Tablt  E.4  NttMork  Factor  File  Exapl*. 


NUMLOC  Number  of  Input  Locations 

NUMCPU  Number  ot  Computers 

NUMCLS  Number  of  Classes 

NUMSIZ  Number  of  Sizes 

NUMPRT  Number  of  Printers 

NUMGAT  Number  of  Gates  <Card  Readers) 

IBATST  Batch  Location  Start  Number 

IMPCLS  Word  Processing  Class  Number 

Table  E.S  LDIMEN  Namelist  Variables. 

The  first  record  is  a  FORTRAN  namelist  statement  used 
to  set  the  dimensions  of  the  model.  These  variable  names 
and  descriptions  are  listed  in  Table  E.S.  The  next  record 
defines  a  cumulative  probability  mass  function  for  each 
class  (ANYDST) .  This  function  is  used  to  assign  a  computer 
to  an  arrival  when  the  7 an y'  computer  has  been  determined  by 
the  workload  cumulative  frequency  distribution.  'Batch' 
probabilities  in  interactive  (BATINT)  define  the  probabi 1 i ty 
of  the  user  submitting  a  job  in  'wait  mode'  (will  wait  for 
completion)  or  'batch  mode'.  These  probabilities  are  de¬ 
fined  for  each  computer  and  size  work. 

DIALUP  defines  the  probability  mass  function  that  an 
interactive  arrival  originates  at  an  external  (dial-up) 
input  terminal .  Different  functions  are  provided  for  each 
computer.  The  distribution  table  (DISTRB)  defines  a  mean 
and  standard  deviation  for  the  think  time  between  job  sub¬ 
mittals,  number  of  K  lines  to  print,  CPU  seconds  required, 
expected  number  of  jobs  per  session,  memory  size  required, 
and  I/O  seconds  required.  These  values  are  provided  for 


each  class  and  size  defined.  Word  processing  variables  are 
provided  next.  ONEJOB  is  the  probability  that  the  last  job 
submitted  by  an  interactive  user  will  require  a  printer. 
The  next  record  defines  WPPROB  which  is  the  probability  for 
each  class  that  a  printer  is  required. 

The  printers  characteristics  are  defined  next.  The 
printers"  speeds  < 1 ines/minute)  are  defined  in  array  PRTSPD. 
A  record  is  required  for  each  printer  in  the  order  they 
appear  in  the  network  structure.  The  possible  selection  of 
a  personal  computer  as  a  printer  is  defined  by  DUPRT.  The 
next  records  define,  for  each  computer  and  input  location,  a 
cumulative  probability  mass  function  which  defines  the 
printers  accessable  from  the  computers. 

Each  computer's  initialization  is  set  by  four  values. 
The  first  value  indicates  whether  the  computer  is  opera¬ 
tional  (I)  or  not  operational  (0).  The  next  value  sets  the 
computer's  multiprogram  level.  The  third  value  sets  the 
number  of  ports  available  for  terminals.  Lastly,  the  CPU 
conversion  factor  is  set.  This  factor  is  used  to  convert 
CPU  time  from  one  computer  to  another.  For  example,  if  the 
CYBER's  factor  equals  1.0,  a  job  on  the  CYBER  takes  60 
seconds,  and  the  same  job  takes  30  seconds  on  the  MAX,  then 
the  MAX  conversion  factor  would  be  0.5. 

The  operational  schedules  of  each  computer  are  provided 
next.  If  a  computer's  schedule  is  provided,  the  computer's 
sequence  number  is  input  followed  by  the  operational  up 
times  for  each  day  followed  by  the  operational  down  times 
for  each  day.  After  the  desired  schedules  are  input  the 


Uar.iabl  e  Default 


I 

I 


I  SUM 

1 

Summary  Flag 

INTER 

6 

Statistics  Collection  Interval 

IWEEK 

1 

Start  Week  Number 

ISTOP 

11 

Stop  Meek  Number 

XLOGON 

8.8 

Log  On  Time 

XLOGOF 

8.8 

Log  Off  Time 

LOGNL 

none 

LOGFLAG  Namelist  Flag 

VARNL 

none 

VARTIME  Namelist  Flag 

Table  E.6  CONFIG  Namelist  Variables. 

'STOP  8"  record  must  be  included.  The  operational 
schedules  for  each  card  reader  (gate  location)  is  provided 
in  the  same  mannner. 

The  terminal  wait  probabilities  for  each  terminal  input 
location  may  be  input.  A  maximum  of  parameter  MAXWAT  for 
each  location  may  be  input  (see  maintenance  manual).  The 
relationships  between  the  printers  and  card  reader  locations 
are  defined  by  namelist  input  PRTGAT.  For  every  printer 
linked  to  a  card  reader  (same  operational  schedule),  the 
array  IPRGAT(gate  number ,pri n ter  number)  must  be  set  to  1. 
Lastly,  the  relationships  between  the  card  readers  and 
computers  are  defined  in  the  same  manner  using  namelist 
GARDGAT.  For  every  card  reader  linked  to  a  computer 
(computer  not  operational  -  card  reader  not  operational), 
the  array  I CRGAT( computer  number,  gate  number)  is  set  to  1. 

Namel i st  Inputs.  Three  namelist  inputs  may  be  input  to 
change  the  model's  default  values.  The  first,  CONFIG,  must 
be  input.  The  variables  set  by  this  statement  and  their 
default  values  are  listed  in  Table  E .6.  I  SUM  defines 


1 

ARWL-UPDAT 

13 

RTPRT 

2 

ARWL-SUBMT 

14 

SET  I  NT 

3 

CPUARV-HLD 

15 

WAITTR-OK 

4 

CPUARV-RUN 

16 

WAITTR-LW 

5 

CPUDPT 

17 

I  NTT  HMD 

6 

CPUDPT -NEW 

18 

RESORC 

7 

SESOWR 

19 

ENT  I  NT 

8 

LATARW 

20 

SETCPU 

9 

LOGON 

21 

STPINT 

10 

PERIOD-GO 

22 

WAITPO-OK 

11 

PERIOD-SCH 

23 

kttlTPO-LW 

12 

RESCHD 

Table  E.7 

Network 

Logs. 

whether  the  SLAIi  Summary  Reports  are  generated.  INTER  is 
the  statistics  collection  interval.  Every  INTER  hours  a 
SLAM  Summary  Report  is  output  and  the  statistical  arrays  are 
cleared.  IMEEK  and  ISTOP  define  the  simulation  run's  start 
and  stop  week  numbers  respectfully.  XLOGON  and  XLOGOF 
define  the  times  the  logging  function  is  activated  and 
deactivated.  Lastly,  LOGNL  and  WARNL  must  be  set  to  .TRUE, 
or  .FALSE..  If  LOGNL  is  true,  namelist  L06FLA6  follows.  If 
UARNL,  is  true,  namelist  WARTIME  follows. 

Namelist  LOGFLAG  is  used  to  define  the  logs  which  will 
be  output  between  XLOGOF  and  XLOGON  time.  A  log  consists  of 
TNGM,  description,  and  attribute  values  of  an  event.  A  list 
of  the  log  numbers  and  descriptions  is  provided  in  Table 
E.7.  If  log  number  6  is  desired,  then  L0G0N(6)«1  would  be 
included  in  the  namelist  input.  All  of  the  logs  are 
defaulted  off  <0) .  Further  information  on  logging  is  pro¬ 
vided  in  the  maintenance  guide. 


CPULTM 


CPULTS 

TRMLTM  TRMLTS 

OPRMsI  OPRSTD 

XLOGMN  XLOGST 

WAITMN  WAIT ST 

PCPRTM  PCPRTS 


Computer  Not  Available  Reschedule 
T  ime 

Terminal  Not  Available  Reschedule 
Time 

Batch  Operator  Input  Time 
Interactive  Log  On  Time 
Computer  Port  Not  Available 
Reschedule  Time 
Personal  Computer  Print  Time 


Table  E . 8  MARTIME  Namelist  Variables. 


Namelist  MARTIME  is  used  to  change  any  o-f  the  means  and 
standard  deviations  of  various  time  delays  as  listed  in 
Table  E.8.  All  of  the  values  are  defaulted  by  the  BLOCK 
DATA  module.  Please  reference  BLOCK  DATA  for  these 
defaults.  Further  descriptions  of  these  variables  may  be 
found  in  the  data  dictionary. 

An  example  of  the  namelist  inputs  ist 

CONFIG  INTER*  12,  XLOGOhh*0.0,  XL  OG  OF* 864 00  .  , 

MARNL* . TRUE . ,  LOCNL=  .TRUE .  6c END 
VLOGFLAG  LOGON<6>*1,  LOGGNC  15>*1  6c END 
WARTIME  OPRht+=100.  VEND 

In  this  example  the  SLAM  Summary  Report  would  be  printed  and 
the  statistical  arrays  cleared  every  12  hours  <INTER*12>. 
Logs  would  be  output  for  the  first  day  <XLOGON*0.0, 
XLOGOF— 86400 .) .  Namelist  L0GFLA6  and  MARTIME  will  follow. 
Log  6  and  19  would  be  output  during  the  first  day.  Finally, 
the  batch  operator  input  mean  would  be  set  to  100  seconds. 


E-il 


Outputs 

The  only  output  generated  by  the  network  model  is  the 
SLAM  Summary  Report  <Ref  28:57)  -followed  by  the  CPU  and  I/O 
utilizations  for  each  computer.  Additionally,  the  logs  as 
described  earlier  may  be  output. 

StCUC tlUUI 

As  stated  ear  ier,  the  hardware  configuration  of  the 
AFIT  network  is  structured  using  SLAM  network  statements. 
Familiarity  with  SLAM  is  assumed  for  this  discussion.  Also 
please  reference  the  network  listing  in  Appendix  H. 

rvtnfrnrti  SiaiMBanls.  For  the  LIMIT'S  statement,  a 
minimum  of  40  plus  the  number  of  computers  files  (MFIL)  and 
15  attribute  values  <MATR>  must  be  declared.  TIMST  state¬ 
ments  are  used  to  collect  time  persistent  statistics  of  the 
computers  availability  and  number  of  ports  available.  These 
values  are  maintained  in  the  XX  array.  The  first  availabil¬ 
ity  value  for  the  computers  is  XX( 10) .  The  other  computers 
follow  sequentially.  This  sequence  must  match  the  sequence 
of  computer  definitions  in  the  input  factor  file.  The  port 
availabilities  are  maintained  in  the  same  manner  starting  at 
XX<40) .  ST AT  statements  must  be  included  to  collect  each 
computer  resource  response  time.  Again,  the  same  sequential 
order  is  maintained.  The  INIT  statement  defines  a  simula¬ 
tion  run  time  of  0.0  to  6800000.  seconds  <11  weeks). 

Besnnrre  and  Rate  Blocks.  The  interactive  input  loca¬ 


tions  are  defined  first  by  using  SLAM  resource  blocks  start¬ 
ing  with  file  number  10.  The  capacity  is  set  to  the  number 


of  terminals  available  at  each  location.  The  printers  are 
also  defined  by  resource  blocks  starting  with  file  number 
20.  The  capacity  is  either  0  or  1  depending  on  the 
printer's  status  at  start  up  (2400  Sunday).  If  the  printer 
is  operational,  set  the  capacity  to  1.  Otherwise,  set  the 
capacity  to  0. 

The  batch  locations  are  defined  using  SLAM  gate  blocks 
starting  at  file  number  30.  The  status  is  set  to  close  or 
open  depending  on  the  location's  status  at  start  up.  Note 
that  four  batch  locations  are  defined  but  only  three  batch 
locations  were  defined  using  the  workload  model.  RBT641CR 
and  HAR500CR  were  considered  one  location  by  the  workload 
model.  This  relationship  will  be  discussed  further  in  the 
batch  arrivals  section. 

■Interact i ve  Arrivals.  Terminal  resources  are  seized  by 
the  model  in  this  section.  The  discrete  structure  of  the 
model  enters  an  event  through  node  i  with  ATRIB(7>  equal  to 
the  input  location  number.  This  number  matchs  the  sequence 
defined  for  the  terminal  resource  blocks  above  except  d 
which  is  used  to  define  a  dial-up  arrival.  A  jump  (ACT) 
statement  must  be  included  for  every  terminal  location.  The 
event  takes  the  appropriate  jump  to  seize  the  terminal 
(AWAIT) .  For  all  locations,  a  jump  to  LOGON  is  then  taken 
and  after  a  log  on  time  (USERF(l))  the  event  is  routed  back 
to  the  discrete  structure. 

Batch  Arrival* .  Card  reader  (batch)  resources  are 
defined  similar  to  the  terminal  resources.  The  discrete 
structure  of  the  model  enters  an  event  through  node  2  with 


ATRIB(7>  equal  to  the  input  location  number.  This  number 
begins  with  the  next  integer  number  available  after  the 
terminal  resources.  For  example,  the  last  terminal  resource 
defined  is  S0FT125  (number  7) ;  therefore,  the  first  batch 
location  number  is  8.  Again,  a  jump  statement  is  provided 
for  every  batch  location.  If  the  input  'building'  is  641 
then  another  jump  is  taken  to  either  RBT641CR  or  HAR500CR. 
Eacn  event  is  then  processed  by  an  AWAIT  node,  operator 
input  time  (USERF(2)),  the  wait  time  is  collected,  and  then 
routed  back  to  the  discrete  structure. 

I.n±er ac tive  Release .  After  a  session  is  completed,  an 
event  is  entered  at  node  3  to  release  the  terminal  resource. 
A  jump  table  follows  which  is  identical  to  the  Interactive 
Arrivals  table.  The  appropriate  jump  is  taken  to  FREE  the 
terminal,  collect  the  session  time,  and  terminate  the  event. 

Printers.  All  requests  for  printers  are  entered 
through  node  4  with  ATRIB(15)  equal  to  the  printer  number. 
The  printer  number  corresponds  to  the  sequence  of  resource 
block  definitions  and  the  printer  definitions  in  the  input 
factor  file.  The  last  jump  in  the  jump  table  is  added  for  a 
personal  computer  print.  After  the  event  takes  the  appro¬ 
priate  jump,  the  event  waits  for  the  printer  at  the  AWAIT 
node.  ATRIB<8>  contains  the  print  time.  After  the  resource 
is  seized  and  'printing'  completes,  the  resource  is  released 
(FREE).  The  printer  time  and  the  printer  plus  queue  time 
(INT(6)>  are  collected.  If  this  is  a  batch  job  (ATRIB(14>  > 
7),  the  event  is  routed  to  BACL  to  collect  statistics. 


Collect  Ratrh 


At  BACL  optional  turnaround 


times  may  be  collected.  ATRIB(7>  contains  the  computer 
number  and  ATRI8(14)  contains  the  location  number.  For  this 
development,  turnaround  times  by  computer  and  building  were 
col  1 ected. 


Job  Setup 

The  model  currently  runs  on  the  ASD  CYBER  computer. 

The  job  may  be  entered  through  interactive  batch  or  regular 

batch  input.  Typical  job  statements  are: 

MCD,T70 ,10170, 01240000 .  T830499 .MCDERMOTT , 55533 

ATTACH, SIMS, SIMS. 

ATTACH , L60 , SIMLGO . 

ATTACH , TAPE8 , CCNSLAM . 

ATTACH , TAPE9 , STUDWI C . 

ATTACH , TAPE 10 , ADMM4I C . 

ATTACH .TAPE  1 1 , OTHRWI C . 

ATTACH .TAPE  12 , BTCHWI C . 

ATTACH ,  PROC ,  SLAMPROC ,  I  D“AFIT ,  SN=AFIT . 

BEGIN, SLAMI I  ,PR0C,M“LG0,PMD=1 ,  I=*SIMS>  . 


Error  Conditions 

Minimum  error  checking  is  provided  by  the  model.  The 
model's  value  is  totally  reflected  by  the  accuracy  of  the 
network  structure  and  the  factor  file.  Careful  attention 
should  be  paid  to  these  files  creation.  The  only  error 
conditions  detected  by  the  model  are:  1  -  Invalid  USERF 
call  from  network  and  2  -  Input  file  mismatch  with  input 
CPU,  class,  or  size  dimensions. 


The  network  model  capacity  is  currently  limited  by  the 
SLAM  file  structure  and  the  FORTRAN  parameter  statements  in 
the  discrete  structure.  Currently,  the  SLAM  file 


5 


definitions  limit  the  terminal  locations,  printers,  and 
batch  locations  to  ten.  The  computers  are  limited  to  five. 
The  parameter  statements  limit  the  total  input  locations  to 
ten;  the  classes  and  sizes  to  six;  and  the  number  of  gates 
and  wait  probabilities  to  four. 
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The  AFIT  Network  Model  is  a  top-down  designed  simula¬ 


tion  of  the  AFIT  ADP  network  using  SLAM.  It  utilizes  SLAM's 
combined  network-discrete  structure.  The  'network' 

structure  is  reviewed  in  the  AFIT  Network  Model  User's 
Guide.  This  appendix  reviews  the  'discrete'  structure  o-f 
the  network  model.  The  discrete  structure  is  written  in 
FORTRAN  Version  5  and  is  currently  running  on  ASD's  CYPER 
computer  in  batch  mode. 

The  objective  of  this  guide  is  to  review  the  documen¬ 
tation  standards,  programming  standards,  and  provide  the 
general  structure  o-f  the  AFIT  Network  Model  .  "he  documen¬ 
tation  standards  are  very  similar  to  the  standards  used  by 
the  workload  model.  The  programming  standards  were 
primarily  developed  to  utilize  SLAM  common  blocks  and  docu¬ 
ment  the  discrete  structure  with  its  interface  to  the  net¬ 
work  structure.  Please  reference  the  AFIT  Network  Model 
User's  Guide  (Appendix  E)  for  a  description  of  the  network 
structure. 

Qnriimentatinn  Standards 

The  bulk  of  the  detailed  documentation  on  the  AFIT 
network  model  resides  within  the  coded  modules.  A  specific 
header  was  used  for  this  documentation.  This  standard  calls 
for  the  following  header  information  on  each  module: 

C  Name: 

C  Modu 1 e  Number : 

C  Function: 

C  Attributes  Referenced: 

C  Global  OOO  Variables  Referenced: 

C  Common  B1 ocks/Var iabl es  Used: 


C  Conwnon  Blocks/Variables  Changed: 
C  Modules  Called: 

C  Calling  Modules: 

C  Scheduled  by: 


Besides  the  header  in-formation,  comment  statements  -for  each 

module  are  included  within  the  body  o-f  the  module. 

Each  module's  structure  -followed  a  specific  standard. 

All  DO  loops  and  IF  THEN  ELSE  bodies  were  indented.  FORTRAN 

statements  for  each  module  followed  the  following  order: 

SUBROUTINE  or  FUNCTION  statement 

PARAMETER  statements 

Local  declarations 

COMiON  statements 

EQUIVALENCE  statements 

The  body 

RETURN  statement 

FORMAT  statements 

END  statement 

Also  included  within  the  model  is  a  BLOCK  DATA  module.  This 
module  includes  every  common  block  and  sets  all  default 
values  except  the  global  <XX>  variables. 

The  data  dictionary  is  included  in  Appendix  6.  This 
dictionary  also  followed  a  standard  format  as  follows: 


Name: 

Common  B1 ock : 
Description : 
Initial ized  by: 
Used  by: 


Types 


The  items  in  the  data  dictionary  include  all  common 
variables  and  names  for  PARAMETER  constants. 


ammi  ng 

In  order  to  establish  the  discrete  structure's  inter¬ 


face  to  the  SLAM  executive  and  the  network  structure, 
programming  standards  were  developed.  These  standards 
allowed  the  utilization  of  the  SLAM  common  variables  thereby 
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Humbtc 


1 

ATIME 

Arrival  Time 

2 

ILOCAT 

Input  Location 

3 

I  MACH 

Computer 

4 

I CLASS 

C .  ass 

5 

1  SIZE 

Size 

6 

APRTQ 

Input  Time  to  Card  Reader  or 

AWAIT 

Print  Queue 

Wait  ~ime  for  Location  Change 

7 

ACPSEC 

CPU  Seconds 

ALOCAT 

Location  Jump  for  Network 

8 

ARUN/APRTL 

Run  Time  /  Printer  Lines 

ACPU 

CPU  Jump  for  Network 

9 

I  NT BAT 

Interactive  State  Flag 

10 

I  JOBS 

0/1  *  Batch/Wait  Mode 

Number  of  Jobs  This  Session 

11 

I  DIAL 

Dial-up  Flag  0/1  *»  No/Yes 

12 

I ORG 

Original  Class 

13 

AMEAN 

Mean  Time  of  Next  Job  Submittal 

14 

AM  EM 

Memory  Required 

IS 

AJUMP 

Jump  Flag  for  Network 

Table  F.l  Attribute  Mnemonics  and  Descriptions. 


reducing  memory  requirements  and  increased  the  versatility 
of  the  discrete  structure.  The  discrete  structure  will  not 
require  modification  as  the  hardware  configuration  (network 
structure)  is  modified.  Additionally,  these  standards 
enhance  the  readability  of  the  modules  and  provide  increased 


documentation 


1 

INTARV 

Interactive  Arrivals 

INITLC.ARVL, 

PERIOD 

2 

I  BATCH 

Batch  Arrivals 

INITLC.ARVL, 

PERIOD 

3 

NRLSIN 

Interactive  Release 

LOGON,  SESOVR 

4 

IPRTEN 

Printers 

RTPRT 

Table  F.2  Enter  Node  Descriptions. 


Event  A1  .tributes.  SLAM  uses  a  common  array  (ATRIB)  in 
the  SCGM1  common  block  to  store  event  attribute  values. 
Equivalence  statements  are  included  in  every  module  to 
reference  these  attributes  as  listed  in  Table  F.l.  Besides 
increasing  the  readability  of  the  code,  this  standard  allows 
the  actual  attribute  numbers  to  change  without  changing  the 
code.  To  change  an  attribute  number  only  the  equivalence 
statements  need  to  be  modified. 

Network -Pi srrete  Interface.  SLAM  allows  combined 
network~discrete  simulation  by  use  of  enter  and  event  nodes 
(network)  and  ENTER  and  EVENT  subroutines  (discrete) .  To 
enter  an  event  to  the  network  structure,  the  mnemonics 
defined  in  Table  F.2  are  used.  To  schedule  an  event  on  the 
event  calendar,  the  mnemonics  defined  in  Table  F.3  are  used. 
Three  of  the  locations  are  scheduled  by  the  network 
structure.  Again,  this  enhanced  the  readability  of  the  code 
and  only  requires  minimum  effort  to  change  actual  event  or 
enter  numbers. 


tliunfaic 


Network 


1 

CLOCK 

ICLKEW 

2 

INTHND 

Printers 

INTHEV 

3 

RESORC 

IRESEV 

4 

SETCPU 

ISTCEV 

S 

ARVL 

IARVEV 

6 

PERIOD 

IPEREV 

7 

LOGON 

Interactive 
Arrival s 

8 

CPUDPT 

ICPDEV 

9 

CPUARV 

Batch  Arrivals 

19 

LATARV 

LATEVT 

Tabl •  F.3  Event  Numbers  Descriptions. 

Blnhal (XX)  end  State! SSI  Uaciable*.  The  arrays  XX  and 
SS  defined  in  the  SLAM  SCGM1  common  block  are  used  to  store 
global  variables  and  the  computer  state  respectfully.  Like 
the  event  attributes,  FORTRAN  equivalence  statements  are 
used  to  reference  these  variables.  Table  F.4  lists  the  XX 
global  variables.  Further  description  of  the  variable 
mnemonics  may  be  found  in  the  data  dictionary.  The  XX  array 
is  also  used  to  track  the  computer  availabilities  starting 
at  number  19  and  the  computer  ports  starting  at  number  49. 
These  values  are  referenced  by  adding  an  offset  variable  to 
the  computer  sequence  number.  For  the  computer 
availability,  the  offset  (CPUOS)  equals  9 .  For  the  ports, 
the  offset  <IPORTS>  equals  3?. 


'  i'  ■  ■  <*  !.■  \rs.1  <*  u;' 


XXO  Hnamnn  i  r 

1  I  HOUR 

2  I  DAY 

3  I MEEK 

4  IMPCLS 

5  UPTTIM 

6  I  STOP 

7  XLOGON 

8  XLOGOF 

9 
18 
11 
12 
13 

14-14 

17  I SUM 

18 

19  INTER 

28  I TOTAL 

21-39 

48 

41 

42 

43 

44-188 


Desrriptinn 
Hour  Number . 

Day  Number . 

Meek  Number . 

Mord  Processing  Class. 
Time  of  Next  Update. 
Stop  Meek  Number . 

Log  On  Time. 

Log  Off  Time. 

Unused. 

CYBER  Status. 

CREATE  Status. 

Harris  588  Status. 

MAX  11/788  Status. 
Unused. 

Summary  Print  Flag. 
Unused. 

Statistic  Collection 
Interval . 

Statistic  collection 
counter . 

Unused. 

CYBERS  Ports. 

CREATE  Ports. 

Harris  588  Ports. 

MAX  11/788  Ports. 

Unused. 


v  v.\yvv- 


Table  F.4  Global  (XX)  Mariables 
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SA 


1 

ITRMOL 

9  Terminals  Online 

0.0 

2 

ITRM4P 

4  Terminals  Word 

0.0 

Processing 

3 

ITRMAC 

4  Terminals  Active 

9.9 

4 

I  EX  JOB 

4  Jobs  Running 

9.9 

S 

IMEM 

Total  Memory  Req 

0.0 

6 

I  CPU 

CPU  Seconds  Used 

0.0 

7 

INOUT 

I/O  Seconds  Used 

0.0 

8 

IMPL 

Multiprogram  Level 

RDPARM 

Tabla  F.9 

Computer  State  Variables. 

Tha 

computar  statas  ara  maintainad  in  tha  SS  array  as 

1 istad 

in 

Tabla  F.5 

Each  state  is  rafarancad  by 

cal cul ating 

tha  indax 

and  than  adding  tha 

appropriate 

mnemonic . 

This  indax 

(INDEX)  is  calculated  by 

mul tipi ying 

tha  computar  saquanca 

numbar  ( IMACH)  by  19  and 

than  sub- 

tracting 

19 

as  f ol 1 owsi 

INDEX  -  I MACH  X  18  -  18 

Ellas.  The  -fit as  used  by  the  simulation  arc  defined  in 
Tabla  F.6.  Accass  to  tha  file  data  by  tha  discrata 
structura  is  achieved  by  adding  a  fila  off  sat  to  tha 
computar  sequence  numbar  or  input  location  saquanca  numbar. 
Tha  filas  I  through  9  ara  usad  to  stora  avants  in  tha  CPU 
'input  hold  quaua' .  Tha  filas  ara  rafarancad  by  adding  tha 
offsat  (IHLDOS)  to  tha  computar  numbar  (IMACH).  Filas  19 
through  IP  ara  usad  to  stora  avants  waiting  for  a  tarminal . 


1 

CYBER  HOLD 

22 

HAR80PEN 

2 

CREATE  HOLD 

23 

HAR80LP 

3 

HARRI S  508  HOLD 

24 

HAR80PP 

4 

SSC  HOLD 

25 

SSCPP 

3-9 

Unused 

26 

HAR500LP 

10 

STUD 125 

27-29 

Unused 

11 

STUD640 

30 

RBT125CR 

12 

STUD641 

31 

HAR80CR 

13 

FAAD123 

32 

RBT641CR 

14 

FAAD640 

33 

HAR300CR 

13 

FAAD64 1 

34-39 

Unused 

1 6 

SOFT  123 

40 

CYBER  Ports 

17-19 

Unused 

41 

CREATE  Ports 

20 

RBT125LP 

42 

Harris  Ports 

21 

RBT641LP 

43 

MAX  11/780  Ports 

22 

HAR80PEN 

Table  F .6  Network  File  Descriptions. 

The  Files  are  reference  by  adding  the  offset  (ITRMOS)  to  the 
input  location  number  <ILOCAT>.  Files  20  through  2? 
(printers)  and  files  30  through  39  (card  readers)  are  not 
referenced  by  the  discrete  structure.  Lastly,  files  40 
through  43  are  used  to  store  events  waiting  for  a  computer 
port.  These  files  are  referenced  by  adding  the  offset 
(IPORTS)  to  the  computer  number  (IMACH). 


Figure  F.l  Network  Model  (MAIN)  Hierarchy 


flier  era!,  g»rnr»nr« 

As  previously  mentioned,  the  AFIT  Network  Model  has  a 
top-down  structure.  At  the  top  of  this  structure  is  the 
MAIN  module  as  illustrated  in  Figure  F.l.  Table  F.7  lists 
all  the  discrete  modules  with  a  short  description.  After 
the  MAIN  level,  the  SLAM  executive  processes  all  events 
through  the  EVENT  module.  All  called  modules  in  the  EVENT 
module  are  numbered  l.E.x  where  x  is  khe  sequence  in  the 
module.  Each  of  these  modules  are  presented  in  this 
sec  t i on . 


F- 19 


Modu 1  *  Mnriu 1 m  Rage 

Name  MnmK me.  Number 


ARVL 

1.E.5 

1-2 

Handles  all  network  arrivals. 

BLOCK 

l.B 

1-3 

BLOCK  DATA 

CALSCH 

l.C.  1 

1-5 

Schedules  resources  up/down  times. 

CLOCK 

l.E.  1 

1-5 

Performs  all  time  processing. 

CPUARV 

l.E. 9 

1-6 

Handles  all  CPU  arrivals. 

CPUDPT 

l.E. 8 

1-8 

Handles  all  CPU  departures. 

DYPROC 

l.E. 1.2 

1-9 

Performs  end  of  day  processing. 

EDPROC 

l.E. 1.4 

1-9 

Performs  end  of  run  processing. 

ENT  I  NT 

l.C. 2 

1-10 

Checks  resource  avai 1 abi 1 i ty  for  an 
interactive  arrival . 

EVENT 

1.2 

1-11 

Calls  appropriate  subroutines. 

FI6UTL 

l.E. 1. 1 

1-12 

Figures  and  prints  CPU  and  I/O 

.  1 

util izations. 

GETARV 

l.E. 3. 1 

1-13 

Sets  arrival  attributes. 

HRPROC 

l.E. 1. 1 

1-14 

Performs  end  of  hour  processing. 

INTHND 

l.E. 2 

1-15 

Handles  all  interactive  sessions. 

INTLC 

1.1 

1-16 

Initializes  all  variables. 

LATARV 

l.E. 10 

1-19 

Enters  rescheduled  events  into 
network . 

LOG 

l.C.  3 

1-19 

Logs  subroutine  name  and  attributes 

LOGERR 

l.C. 4 

1-20 

Logs  user  errors. 

LOGON 

l.E. 7 

1-20 

Checks  port  availability. 

PERIOD 

l.E.  6 

1-21 

Handles  all  periodic  arrivals. 

PRTCON 

1.1.2 

1-23 

Prints  the  variables. 

RDERR 

l.C. 3 

1-26 

Handles  file  read  errors. 

RDPARM 

1.1.1 

1-27 

Reads  the  input  factor  file. 

RESCHD 

l.C. 2.1 

1-30 

Reschedules  arrivals. 

RESORC 

l.E. 3 

1-31 

Resets  status  of  resources. 

RTPRT 

l.E. 8. 1 

1-32 

Determines  printer  and  routes  to 
network . 

SESOVR 

l.C.  6 

1-33 

Performs  end  of  session  processing. 

SETCPU 

l.E. 4 

1-34 

Sets  CPU  states  and  session  time. 

SET  I  NT 

l.C. 7 

1-35 

Sets  interactive  Job's  print  and 
mode  characteristics. 

STPINT 

l.E. 3. 1 

1-36 

Released  all  interactive  users. 

UPDARV 

l.C. 8 

1-37 

Updates  the  arrival  rates. 

UPDFRQ 

l.C. 9 

1-38 

Updates  the  frequency  distributions 

WKPROC 

l.E. 1.3 

1-39 

Performs  end  of  week  processing. 

ARVTIM 

l.F.  1 

1-40 

Returns  next  arrival  time. 

CPUSEC 

1.F.2 

1-40 

Returns  CPU  seconds  required. 

FIGRUN 

l.F. 3 

1-41 

Returns  run  time  required. 

MEMSIZ 

l.F. 4 

1-41 

Returns  memory  required. 

PRTLIN 

l.F. 3 

1-42 

Returns  print  lines  required. 

USERF 

l.F.  6 

1-42 

Returns  time  for  network  structure. 

WAITPO 

l.F. 7 

1-43 

Determines  if  interactive  arrival 
will  wait  for  port. 

WAITTR 

l.F. 8 

1-44 

Determines  if  interactive  arrival 
will  wait  for  terminal. 

XIOSEC 

l.F. 9 

1-43 

Returns  I/O  seconds  required. 

Table  F.7  Network  Modules  Descriptions. 
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The  MAIN  module  is  exactly  as  Prisker  de-fines  (Ref 
20:232)  and  is  primarily  used  to  set  the  NSET/QSET 
dimension.  The  SLAM  executive  is  called  which  calls  INTLC. 
INTLC  defaults  the  run  configuration  as  defined  in  the 
user's  guide,  calls  RDPARM  to  input  the  factor  file,  and 
calls  PRTCON  to  output  the  factor  file  values.  CALSCH  is 
then  called  to  schedule  each  computer's  and  batch  location's 
operational  up  and  down  times.  The  arrival  rates  (ARRATE) 
and  cumulative  frequency  distributions  (FREQ)  are  initial¬ 
ized  by  calling  modules  UPDARV  and  UPDFRQ  respectfully.  The 
arrival  rates  are  used  to  schedule  the  first  input  locations 
(interactive  and  batch)  arrivals.  Finally,  the  CNSTxxy 
input  file  is  read  to  schedule  the  first  periodic  arrival. 

The  first  event  module  is  CLOCK  as  illustrated  in 
Figure  F.2.  CLOCK  controls  all  of  the  time  processing. 
First,  it  updates  the  update  time  (UPTTIM)  and  reschedules 
itself  for  an  hour  later.  HRPROC  is  called  to  check  the 
statistic  interval  (INTER).  If  this  interval  has  been 
reached,  the  SLAM  Summary  Report  is  output,  FI61XTL  is  called 
to  calculate  and  output  the  CPU  and  I/O  utilizations,  and 
the  statistical  arrays  are  cleared.  If  the  end  of  day  has 
been  reached,  CALSCH  is  called  to  schedule  the  computers' 
and  card  readers'  changes  in  operational  status.  DYPROC 
also  updates  the  arrival  rates  if  the  end  of  the  week  has 
not  been  reached.  If  the  end  of  week  has  been  reached, 
MKPROC  is  called  to  update  the  arrival  rates  and  cumulative 
frequency  distributions  for  every  location.  Finally,  if  the 


Figure  F.3  INTKMD  Hierarchy. 


end  of  run  has  been  reached  (ISTOP),  EDPROC  is  called  to  set 
MSTOP  to  -1  which  stops  the  simulation. 

Event  module  INTKND  processes  all  interactive  sessions 
by  routing  Jobs  to  the  CPU  and  scheduling  a  user's  think 
time  < Figure  F.3> .  If  INTM4D  was  scheduled  by  a  CPU  depar- 
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F  .3 


Figure  F.4  RESORC  Hierarchy. 


ture  (CPUDPT)  and  more  Jobs  need  to  be  run,  SESOUR  is  called 
to  conclude  the  session.  If  more  jobs  are  left,  a  think 
time  is  calculated  and  INTW'ID  is  scheduled.  At  the  end  of  a 
think  time  SET  I NT  is  called  to  set  a  job's  attributes  and 
CPUARV  is  called  to  schedule  the  jobs's  completion.  If  the 
job  was  submitted  in  'batch'  mode  and  more  jobs  are  left, 
another  think  time  is  calculated  and  INTHND  is  scheduled. 
If  the  job  was  submitted  in  batch  mode  and  no  jobs  are  left, 
the  session  is  completed  by  calling  SESOUR. 

Figure  F.4  illustrates  RESORC  hierarchy.  RESORC  is 
scheduled  by  CALSCH  to  'open'  and  'close'  computers, 
printers,  and  card  readers.  The  computers'  operational 
status  is  set  by  changing  the  appropriate  value  in  the  XX 
array.  If  a  computer  is  becoming  not  operational ,  STPINT  is 
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ARVL 


1.E.5 


GETARV 


ENT  I  NT 


l.E.5. 1 


i.C.2 


WAITTR 


l.C.2. i 


1.F.8 


Figure  F.5  ARVL  Hierarchy. 


called  to  search  the  event  calendar  for  ' users'  using  the 
computer  resource.  Any  users  found  are  removed  from  the 
event  calendar  and  routed  to  SESOUR.  All  printers  and  card 
readers  attached  to  the  computer  are  closed.  Printer  and 
card  reader  status  changes  are  accomplished  by  calling  the 
appropriate  open  or  close  SLAM  subroutines. 

Event  module  SETCPU  is  scheduled  to  change  a  CPU's 
states  and  set  the  session  time  whenever  there  is  an  inter¬ 
active  arrival.  INTHND  is  scheduled. 

All  user  arrivals  to  the  network  are  routed  to  the 
network  by  event  module  ARVL  as  illustrated  in  Figure  F.5. 
At  each  call  the  next  arrival  for  the  input  location  is 
scheduled  using  ARRATE.  GETARV  is  called  to  set  the  arrival 
attributes  such  as  computer,  class,  and  so  forth.  If  an 
interactive  arrival,  the  event  may  be  set  to  originate  from 


ENT  I  NT 


1.C.2 


Figure  F .6  PERIOD  Hierarchy. 

a  dial-up  location.  After  control  is  returned  from  GETARV, 
the  event  can  be  routed  to  either  interactive  ( ENT I NT)  or 
batch.  If  batch,  the  event  is  entered  into  the  network 
structure  using  the  ENTER  subroutine.  If  interactive, 
ENT I NT  is  called  to  determine  if  the  computer  and  terminal 
are  available.  If  the  computer  is  not  available,  the  event 
is  rescheduled  (RESCHD) .  If  the  computer  is  available  but  a 
terminal  is  not  available,  WAITTR  is  called  to  determine  if 
the  user  will  wait.  If  the  user  will  not  wait,  the  user  is 
rescheduled.  Finally,  if  the  computer  and  terminal  are 
available  or  the  user  will  wait,  the  arrival  is  entered  into 
the  network  structure. 

PERIOD  module  controls  all  of  the  periodic  arrivals  to 
the  network  as  shown  in  Figure  F.6.  The  module  schedules 


LOGON 


1.E.7 


SETCPU 


ITPO 


1.E.4 


1.F.7 


Figure  F.7  LOGON  Hierarchy. 


the  next  periodic  arrival  by  reading  the  next  record  in  the 
CNSTxxy  File.  The  current  arrival  is  processed  by  calling 
ENT I NT  For  interactive  or  subroutine  ENTER  For  batch. 
ENT  I  NT  was  described  earlier. 

Event  module  LOGON  is  scheduled  by  the  network  struc¬ 
ture  (Interactive  Arrivals)  when  an  arrival  completes  log  on 
to  a  terminal  (Figure  F.7).  IF  a  port  is  available,  SETCPU 
is  called  to  update  the  CPU's  state,  calculate  a  session 
time,  and  schedule  INTHND.  Otherwise,  WAITPO  is  called  to 
determine  iF  the  user  will  wait  For  a  port.  IF  the  user 
will  not  wait,  the  event  is  entered  back  into  the  network 
structure  (Interactive  Release)  to  release  the  terminal. 
Otherwise,  the  user  is  queued  in  the  hold  For  port  File. 

Figure  F.8  illustrates  the  event  module  CPUDPT 
hierarchy.  CPUDPT  handles  all  CPU  departures  and  is 
scheduled  by  CPUARV.  CPUDPT  adjusts  the  CPU  states;  routes 
the  job  to  a  printer  iF  word  processing  class;  and  starts  a 
job  in  the  hold  queue.  A  job  is  routed  to  a  printer  by 


Figure  F.8  CPUDPT  Hierarchy. 


calling  P'PRT.  RTPRT  determines  an  appropriate  printer  and 
then  enters  the  event  into  the  network  structure  (Printers). 
I-f  the  job  originated  -from  an  interactive  location  in  wait 
mode,  INTHND  is  called.  Finally,  if  any  jobs  are  in  the 
CPU's  hold  queue,  it  is  scheduled. 

Event  module  CPUARV  is  scheduled  for  both  interactive 
and  batch  jobs.  For  batch  jobs,  the  network  structure 
(Batch  Arrivals)  schedules  the  job  directly.  For  inter¬ 
active  jobs,  INTHND  calls  the  module.  In  any  case,  the 
job's  run  parameters  are  calculated.  If  there  is  room  in 
the  'execute'  queue,  CPUC ->T  is  scheduled.  Otherwise,  the 
job  is  stored  into  the  appropriate  'hold'  queue. 

All  interactive  arrivals  that  were  rescheduled  because 
a  computer  or  terminal  was  not  available  are  handled  by 
event  module  LATARV  (Figure  F.9) .  Module  ENTINT  is  called 
to  process  the  arrivals  as  described  earlier. 


Figure  F.9  LATARV  Hierarchy. 


I  imi tat inns 

The  network  model's  capacity  is  set  by  FORTRAN  para¬ 
meter  statements.  To  increase  the  number  o-f  input  loca¬ 
tions!  computers,  classes,  sizes,  printers,  card  readers 
(gates),  or  wait  probabilities,  the  appropriate  parameter 
statement  must  be  modified  in  each  module  it  appears.  The 
data  dictionary  provides  a  cross  reference  for  each 
parameter.  Additionally,  modules  UPDARV  and  (JPDFRQ  are 
structured  to  handle  the  output  files  created  by  the  AFIT 
Workload  Model.  Any  modifications  to  these  files  will  re¬ 


quire  modifications  to  the  UPDARV  and  UPDFRQ  modules 
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Nam* i  ANYDST <MAXCLS,MAXCPU)  Type:  REAL 

Common  B1  ock  :  ANYVAL 

Description:  Probabilities  o-f  using  computer  when  'an 
spec  i f i ed . 

Initialized  by:  RDPARM 
Used  by:  GETARV , PRTCON , RDPARM 


Name:  ARRATE<MAXLOC , 24>  Type:  REAL 

Common  Block:  INUALS 

Description:  Current  arrival  rates  for  each  location. 
Initialized  by:  UPDARV 
Used  by:  ARVL , INTLC , UPDARV 


Name:  BATINT<hWXCPU,HWCLS>  Type:  REAL 

Common  Block:  INTPRB 

Description:  Probabilities  of  submitting  'batch'  jobs  when  in 
interactive. 

Initialized  by:  RDPARM 
Used  by:  PRTCON,  RDPARM,  SET  I  NT 


Name:  CWCPU<MAXCPU>  Type:  REAL 

Common  Block:  CPSTAT 

Description:  Factor  for  variation  of  CPU  seconds  from 
computer  to  computer. 

Initialized  by:  RDPARM 
Used  by:  CPUARU , PRTCON , RDPARM 


Name:  CPULTM  Type:  REAL 

Common  Block:  UARCOM 

Description:  Mean  arrival  time  when  computer  is  down. 
Initialized  by:  BLOCK  DATA/RDPARM 
Used  by:  RDPARM , RESCHD 


Name:  CPULTS  Type:  REAL 

Common  Block:  UARCQM 

Description:  Standard  deviation  arrival  time  when  computer 
i s  down . 

Initialized  by:  BLOCK  DATA/RDPARM 
Used  by:  RDPARM, RESCHD 


Name i  DIALUPTI-WXCPU, 24)  Type:  REAL 

Common  Block:  INUALS 

Description:  Dial  up  probabilities  -for  each  computer  over  24 
hours. 

Initialized  by:  RDPARM 
Used  by:  PRTCON , RDPARM , GETARV 


Name:  DISTRB<MAXCLS,MAXSIZ ,4,2>  Type:  REAL 

Common  B1 ock :  FACTOR 

Description:  Mean  and  standard  deviation  for  the  following 
factors: 

1  -  time  till  next  job  submittal 

2  -  number  of  K  lines  to  print 

3  -  CPU  seconds  required 

4  -  Number  of  jobs  this  session 

5  —  memory  size  required 

6  -  I/O  seconds  required 
Initialized  by:  RDPARM 

Used  by:  PRTCON , RDPARM , SET CPU , CPUSEC ,MEMSI Z , PRTL IN ,XI OSEC 


Name:  DUPRT  Type:  REAL 

Common  Block:  PRTPRM 

Description:  Probability  of  a  print  to  dial  up  device 

Initialized  by:  RDPARM 

Used  by:  PRTCON , RDPARM , RTPRT 


Name:  FRTABLa**XLOCfMAXCPU,P'AXCLS,t¥*XSIZ>  Type:  REAL 
Common  Block:  IhMALS 

Description:  Current  cummulative  frequency  distribution  for 
each  input  location. 

Initialized  by:  UPDFRQ 
Used  by:  UPDFR6 , GET ARV 
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Name:  IAOMN  Type:  INTEGER 

Common  Block:  UNITS 

Description:  Facul ty/Aomini strati  on  arrival  and  cummulative 
frequency  distibution  input  file  number. 
Initialized  by:  BLOCK  DATA 
Used  by:  UPDARV , UPDFRQ 


Type:  INTEGER 


Nam*:  IARVEV 

Common  B1 ock :  EVTCOD 

Description!  ARVL  event  code  number. 

Initialized  by:  BLOCK  DATA 

Used  by!  ARVL , INTLC 


Name:  I  BATCH  Type!  INTEGER 

Common  Block:  ENTCOD 

Description:  Batch  arrival  enter  node  number. 

Initialized  byi  BLOCK  DATA 
Used  by:  ARVL, PERIOD 


Name!  I  BAT ST  Type:  INTEGER 

Common  Block!  OFFSET 

Description!  Start  of  input  batch  locations. 

Initialized  by:  BLOCK  DATA/RDPARM 

Used  by i  ARVL,CPUARV,CPUDPT,PERIOD,RDPARM 


Name:  I BTCH  Type!  INTEGER 

Common  61 ock i  UNITS 

Description:  Batch  arrival  and  cummulative  -frequency 
distribution  input  file  number. 

Initialized  byi  BLOCK  DATA 
Used  byi  I NTLC , UPDARV , UPDFRQ 


Name!  ICLKEV  Typei  INTEGER 

Common  Block:  EVTCOD 

Description:  CLOCK  event  code  number. 

Initialized  byi  BLOCK  DATA 
Used  by:  CLOCK, INTLC 


Name:  I CONST  Type:  INTEGER 

Common  Block:  UNITS 

Description:  Constant  input  file  number. 

Initialized  by:  BLOCK  DATA 
Used  by:  INTLC, PERIOD 


( 
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Name:  ICPDEV 
Common  Block:  EVTCOD 

Description:  CPUDPT  event  code  number. 
Initialized  by:  BLOCK  DATA 
Used  by:  CPUARV , CPUDPT 


Type:  INTEGER 


Mj 

Name:  I CPU 

Type: 

INTEGER 

L--i 

Common  B1 ock :  CPSTAT 

P*-; 

Description:  Offset  into  computer 

states  for  CPU 

seconds. 

Initialized  by:  BLOCK  DATA 

-  _  V. 

Used  by:  CPUARV , CPUDPT , F I GUTL 

V 
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Name:  ICPUOS  Type:  INTEGER 

Common  B1 ock :  OFFSET 

Description:  Of -f set  into  XX  array  for  CPU  up/down  flags. 
Initialized  by:  BLOCK  DATA 

Used  by:  CALSCHfENTINT , RDPARM , RESORC , RTPRT 


Name:  ICRGAT<tttXCPU,t«XGAT>  Type:  INTEGER 

Conmon  Block:  SCHEDL 

Description:  Identifies  for  every  computer  which  card  reader 
gates  open/close  as  computers  come  up/down, 
i  .itialized  by:  BLOCK  DATA/RDPARM 
Used  by:  PRTCON p RDPARM , RESORC 


P 
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Name:  I EX JOB 
Common  Block:  CPSTAT 
Description:  Offset  into  computer 
executing  Jobs. 
Initialized  by:  BLOCK  DATA 


Type:  INTEGER 


states  for  number  of 


Name:  I  GATOS  Type:  INTEGER 

Common  Block:  OFFSET 

Description:  Offset  into  start  of  gate  numbers. 
Initialized  by:  BLOCK  DATA 
Used  by:  CALSCH , RESORC 


Name:  IHLDOS 
Common  Block:  OFFSET 
Description:  Offset  into  files 
Initialized  by:  BLOCK  DATA 
Used  by:  CPUARU , CPUDPT 


Name:  IMEM  Type:  INTEGER 

Common  Block:  CPSTAT 

Description:  Offset  into  computer  states  for  current  memory 
requirements. 

Initialized  by:  BLOCK  DATA 
Used  by:  CP11ARU , CPUDPT 


Name:  IMPL 
Common  Block:  CPSTAT 
Description:  Offset  into  computer 
level  . 

Initialized  by:  BLOCK  DATA 
Used  by:  CPUARV , CPUDPT , RDPARM 


Name:  INOUT  Type:  INTEGER 

Common  Block:  CPSTAT 

Description:  Offset  into  computer  states  for  total  I/O 
seconds. 

Initialized  by:  BLOCK  DATA 
Used  by:  CPUARV , CPUDPT , F I GUTL 


Name:  INTARV  Type:  INTEGER 

Common  Block:  ENTCOD 

Description:  Interactive  arrival  enter  node  number. 
Initialized  by:  BLOCK  DATA 
Used  by:  ENT I NT 


Type:  INTGER 
states  for  multiprogram 


Type:  INTEGER 
for  CPU  hold  queue. 
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Nam* i  INTHEV  Type:  INTEGER 

Common  Block:  EVTCOD 

Description:  INTHND  event  code  number. 

Initialized  by:  BLOCK  DATA 

Used  by:  I NT  HMD , RTPRT , SET CPU , ST PI NT 


Name:  IOTHR  Type:  INTEGER 

Common  Block:  UNITS 

Description:  Other  arrival  and  cummulative  -frequency 
distribution  input  file  unit  number. 
Initialized  by:  BLOCK  DATA 
Used  by:  UPDARV , UPDFRQ 


Name:  IPEREV  Type:  INTEGER 

Common  Block:  EVTCOD 

Description:  PERI 00  event  code  number. 

Initialized  by:  BLOCK  DATA 
Used  by:  INTLC, PERIOD 


Name:  I PORTS  Type:  INTEGER 

Common  Block:  OFFSET 

Description:  Offset  into  XX  array  for  start  of  computer 
port  counters. 

Initialized  by:  BLOCK  DATA 

Used  by:  LOGON f PRTCON , RDPARM , SESQVR , SETCPU , WAITPO 


Name:  I PRGAT (MAXGAT ,MAXPRT)  Type:  INTEGER 

Common  Block:  SCHEDL 

Description:  Indentifies  the  printers  which  open/close  as 
the  gate  locations  open/close. 

Initialized  by:  BLOCK  DATA/RDPARM 
Used  by:  PRTCON , RDPARM , RESORC 


Name:  IPRTEN  Type:  INTEGER 

Common  Block:  ENTCOD 

Description:  Printers  enter  node  number. 

Initialized  by:  BLOCK  DATA 
Used  by:  RTPRT 


.  * 

.1  * 

Name:  IPRTOS 

Type: 

INTEGER 

1 

Common  Block:  OFFSET 

5 

Description:  Offset  to  start  of  printer 

resource 

numbers. 

%•; 

Initialized  by:  BLOCK  DATA 

<1 

Used  by :  RESORC 

a 

•uJ 


Nam* :  1  RESEW 
Common  B1 ock :  EVTCOD 

Description:  RESORC  even t  cod*  number. 
Initialized  by:  BLOCK  DATA 
Used  by:  CALSCH 


Type:  INTEGER 


Name:  IRTSTR  Type:  INTEGER 

Common  Block:  OFFSET 

Description:  Start  o-f  responce  time  collect  numbers. 
Initialized  by:  BLOCK  DATA 
Used  by:  CPUDPT 


Name:  ISTCEW 
Common  Block:  EVTCOD 

Description:  SETCFU  event  code  number. 
Initialized  by:  BLOCK  DATA 
Used  by:  SESOWR 


Type:  INTEGER 


Type:  INTEGER 


Name:  I STUD  Type:  I 

Common  Block:  UNITS 

Description:  Student  arrival  rates  and  frequency 

distributions  input  file  unit  number. 
Initialized  by:  BLOCK  DATA 
Used  by:  INTLC, UPDARW , UPDFRQ 


Name:  ITRMAC  Type:  INTEGER 

Common  Block:  CPSTAT 

Description:  Offset  into  computer  states  for  number  of 
terminals  active. 

Initialized  by:  BLOCK  DATA 
Used  by:  CPUARW, INTNMD,SESOWR,SETCPU 


Name!  ITRMOL  Type:  INTEGER 

Common  Block:  CPSTAT 

Description:  Offset  into  computer  states  for  number  of 
terminals  online. 

Initialized  by:  BLOCK  DATA 
Used  by:  SESOVR , SETCPU 


Name:  ITRMOS  Type:  INTEGER 

Common  Block:  OFFSET 

Description:  Offset  to  start  of  terminal  resource  number. 
Initialized  by:  BLOCK  DATA 
U  ?d  by:  ENTINT ,WMTTR 


Name:  ITRM*IP  Type:  INTEGER 

Common  Block:  CPSTAT 

Description:  Offset  into  computer  states  for  number  of 
terminals  word  processing. 

Initialized  by:  BLOCK  DATA 
Used  by:  SESOUR , SETCPU 


Name:  LATEVT  Type:  INTEGER 

Common  Block:  EVTCOD 

Description:  L-VTARV  event  code  number. 

Initialized  by:  BLOCK  DATA 
Used  by:  RESCHD ,MAITPO f WAITTR 


Name:  LOGFLG  Type:  LOGICAL 

Common  Block:  DIMEN 

Description:  Log  Flag.  0/Off  1/On 

Initialized  by:  RDPARM 

Used  by:  ARVL , CPUARV , CPUDPT , DYPROC , ENTINT  f HRPROC ,  INTltfD , 
LATARV , LOGON , PERI OD , RDPARM , RESCHD , RESORC ,  RTPRT , 
SESOVR ,  SETCPU ,  SET  I  NT ,  STPINT  ,UPDARV  ,k»ITPO  ,WITTR 


Name:  L0GCNT<25>  Type:  INTEGER 

Common  Block:  LOGPRM 
Description:  Log  counter. 

Initialized  by:  BLOCK  DATA 
Used  by:  HRPROC , LOG 


Type:  INTEGER 


Name:  LOGON<25> 

Common  Block:  LOGPRM 
Description:  Individual  log  on/off  -flag.  0/off,  1/on 
Initialized  by:  BLOCK  DATA/RDPARM 
Used  by:  LOG , RDPARM 


Name:  tttXCLS  Type:  PARAMETER 

Description:  Maximum  number  o-f  work  classes. 

Used  by:  ARVL, BLOCK  DATA ,GETARL>,  I NTLC, PRTCON, RDPARM, SETCPU 
SET  I  NT ,  UPDARV ,  UPDFRQ  f  CPUSEC ,  MEMS I Z  ,  PRTL I N ,  X I OSEC 


Name:  MAXCPU  Type:  PARAMETER 

Description:  Maximum  number  o-f  computers. 

L  >ed  by:  ARUL, BLOCK  DATA , CALSCH , CPUDPT , F 1 6UTL , GETARV , 

I  NT HMD ,  INTLC ,  PRTCON ,  RDPARM ,  RESORC ,  RTPRT ,  SESOUR , 
SETCPU , SET I  NT, UPDARV , UPDFRQ 


Name:  MAX GAT  Type:  PARAMETER 

Description:  Maximum  number  of  batch  gates. 

Used  by:  BLOCK  DATA , CLASCH , PRTCON , RDPARM , RESORC 


Name:  MAXLOC  Type:  PARAMETER 

Description:  Maximum  number  of  arrival  locations. 

Used  by:  ARVL, BLOCK  DATA,  6ETARV,  I  NTLC,  PRTCON,  RDPARM,  RTPRT, 
UPDARU.UPDFRQ ,MAITPO,HAITTR 


Name:  MAXPRT  Type:  PARAMETER 

Description:  Maximum  numoer  of  printers. 

Used  by:  BLOCK  DATA , CALSCH , PRTCON , RDPARM , RESORC , RTPRT 


Name:  MAXSIZ  Type:  PARAMETER 

Description:  Maximum  number  of  wo^k  sizes. 

Used  by:  ARVL, BLOCK  DATA, GETARV, INTLC, PRTCON, RDPARM, SETCPU 
UPDARV , UPDFRQ , CPUSEC , MEMS I Z , PRTL I N , X I OSEC 


Nam*:  MAXWAT 


Type:  PARAMETER 


Description:  Maximum  number  of  work  classes. 
Used  by:  BLOCK  DATA,RDPARM,WAITPO,WAITTR 


Name:  NRLSIN  Type:  INTEGER 

Common  Block:  ENTC03 

Description:  Release  interactive  enter  node  number 
Initialized  by:  BLOCK  DATA 
Used  by:  LOGON, SESOUR 


Name:  NUMCLS 
Common  Block:  DIMEN 

Description:  Number  o-f  work  classes. 
Initialized  by:  BLOCK  DATA/RDPARM 
Used  by:  6ETARV , INTLC , PRTCON , RDPARM 


Type:  INTEGER 


Name:  NUMCPU  Type: 

Corn.ton  Block:  DIMEN 

Description:  Number  o-f  computers. 

Initialized  by:  BLOCK  DATA/RDPARM 

Used  by:  CALSCH,  F I  GUTL.GETARV,  INTLC,  PRTCON,  RDPARM 


Type:  INTEGER 


Name:  NUMGAT 
Common  Block:  DIMEN 
Description:  Number  of  batch  gates. 
Initialized  by:  BLOCK  DATA/RDPARM 
Used  by:  CALSCH, PRTCON, RDPARM, RESORC 


Type:  INTEGER 


Name:  NUMLOC 
Common  Block:  DIMEN 

Description:  Number  of  arrival  locations. 
Initialized  by:  BLOCK  DATA/RDPARM 
Used  by:  INTLC, PRTCON, RDPARM 


Type:  INTEGER 


Name:  NUMPRT 
Common  Block:  DIMEN 
Description:  Number  of  printers. 
Initialized  by:  BLOCK  DATA/RDPARM 
Used  by:  PRTCON , RDPARM , RESORC , RTPRT 


Type:  INTEGER 


CJ 


Type:  INTEGER 


Name  i  NUNS  1 2 
Common  Block:  DIMEN 
Description:  Number  of  work  sizes. 
Initialized  by:  BLOCK  DATA/RDPARM 
Used  by:  GET ARV , INTLC , PRTCON , RDPARM 


Name:  ONE JOB  Type:  REAL 

Common  Block:  INTPRB 

Description:  Probability  o-f  printing  when  only  one  Job  left 
for  inter ic tive  session. 

Initialized  by:  RDPARM 
Used  by:  PRTCON, RDPARM, SET I  NT 


Name:  OPRNM  Type 

Common  B1 ock :  UARCOM 

Description:  Mean  of  batch  operator  input  time. 
Initialized  by:  BLOCK  DATA/RDPARM 
Used  by:  RDPARM, USERF 


Type:  REAL 


Name:  OPRSTD  Type:  REAL 

Common  Block:  UARCOM 

Description:  Standard  deviation  of  batch  operator  input 
time. 

Initialized  by:  BLOCK  DATA/RDPARM 
Used  by:  RDPARM, USERF 


Name:  PCPRTM 
Common  Block:  PRTPRM 

Description:  Dial-up  mean  print  speed. 
Initialized  by:  BLOCK  DATA/RDPARM 
Used  by:  RDPARM, RTPRT 


Type:  REAL 


Name:  PCPRTS  Type:  REAL 

Common  Block:  PRTPRM 

Description:  Dial-up  standard  deviation  print  speed. 
Initialized  by:  BLOCK  DATA/RDPARM 
Used  by:  RDPARM, RTPRT 


Type :  REAL 


Name:  PORTWTChVOO^T) 

Common  Block:  WAITCM 
Description:  Probabilities  o-f  waiting  -for  a  computer  port. 
Initialized  by:  BLOCK  DATA/RDPARM 
Used  by:  RDPARM,WAITPO 


Name:  PRTSPD<t*iXPRT>  Type:  REAL 

Common  Block:  PRTPRM 

Description:  Printer  speeds  (lines/minute). 

Initialized  by:  RDPARM 

Used  by:  PRTCON , RDPARM , RTPRT 


Name:  PRTTABO^XCPU.MAXLOC.hWXPRT)  Type:  REAL 

Common  B1 ock :  PRTPRM 

Description:  Table  o-f  probabilities  o-f  selection  o-f  printer 
by  computer  and  location. 

Initialized  by:  RDPARM 
Jsed  by:  PRTCON , RDPARM , RTPRT 


Narr»:  SCHBAT (MAXGAT ,  7 , 2>  Type:  REAL 

Common  Block:  SCHEDL 

Description:  Batch  locations  weekly  schedule. 
Initialized  by:  BLOCK  DATA/RDPARM 
Used  by:  CALSCH , PRTCON , RDPARM 


Name:  SCHCPU<MAXCPU,7,2>  Type:  REAL 

Common  Block:  SCHEDL 

Description:  Computer's  weekly  schedule. 

Initialized  by:  BLOCK  DATA/RDPARM 
Used  by:  CALSCH y PRTCON , RDPARM 


Name:  TRMLTM  Type:  REAL 

Conmon  Block:  VARCOM 

Description:  Mean  arrival  time  when  a  terminal  is  not 
avai 1 abl e. 

Initialized  by:  BLOCK  DATA/RDPARM 
Used  by:  RDPARM ,WA I TTR 


Name:  TRMLTS  Ty 

Common  Block:  UARCOM 

Descriptin:  Standard  deviation  or  the  arrival 
terminal  is  not  available. 

Initialized  by:  BLOCK  DATA/RDPARM 
Used  by:  RDPARM .WAITTR 


Type:  REAL 


time  when 


Name:  TRM*JAT(MAXLOC ,r*DO*VT>  Type:  REAL 

Common  B1 ock :  UARCOM 

Description:  Probabilities  of  waiting  for  a  terminal  -I 
each  location. 

Initialized  by:  BLOCK  DATA/RDPARM 
Used  by:  RDPARM, WAITTR 


Name:  WAITMM  Type:  REAL 

Common  Block:  WAITCM 

Description:  Mean  time  to  reschedule  arrival  waiting  for 
port. 

Initialized  by:  BLOCK  DATA/RDPARM 
Used  by:  RDRARM,MAITPO 


Name:  IttlTST  Type:  REAL 

Common  Block:  WAITCM 

Description:  Standard  deviation  of  time  to  reschedule 
arrival  waiting  for  port. 

Initialized  by:  BLOCK  DATA/RDPARM 
Used  by:  RDPARM, WAITPO 


Name:  WPPROB(MAXCLS>  Type:  REAL 

Common  Block:  INTPRB 

Description:  Probabilities  of  changing  class  to  word 
processing  class  (print). 

Initialized  by:  RDPARM 
Used  by:  PRTC ON, RDPARM, SET I  NT 


Name:  XLOQWM 
Common  Block:  UARCOM 
Description:  Mean  log  on  time. 
Initialized  by:  BLOCK  DATA/RDPARM 
Used  by:  RDPARM, USERF 


T ype :  REAL 


RBT125CR 
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Jnttrictiv*  R*ltm 
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GEN, MCDERMOTT .NETWORK, 09/20/83, 1 ,Y,Y,Y,N; 
LIMITS, 44, IS, 500; 

TIMST ,XX< 10) .CYBER  AVAIL} 

TIMST,XX< 11) .CREATE  AVAIL} 

TIMST, XX( 12) ,HARS00  AVAIL; 

TIMST, XX< 13) ,SSC  AVAIL} 

TIMST, XX(40> .CYBER  PORTS} 

TIMST ,XX<41) .CREATE  PORTS} 

TIMST ,XX(42)  ,1WR580  PORTS} 

STAT.l, CYBER  RESPONSE} 

STAT, 2-, CREATE  RESPONSE; 

STAT ,3,HARS00  RESPONSE; 

STAT ,4,SSC  RESPONSE; 

INIT ,0. ,6800000. ; 

J 

NETWORK; 

• 

;  RESOURCES  AND  GATES 

}  (FILES  1-10  RESERVED  FOR  DISCRETE  USE) 

i 

}  XXX  TERMINALS  XXX 

RESOURCE/STUD 125(20) , 10 ; 

RESOURCE/ STUD448 ( 20) , 1 1 ; 

RESOURCE/ST UD64 1 <  20)  , 12; 

RESOURCE/FAAD 125(20) , 13} 

RESOURCE/FAAD440 <  20) , 14 } 

RES0URCE/FAAD64 1 <  20) ,15} 

E SOURCE/SO FT 125<  20) , 14 j 

1 

}  XXX  PRINTERS  XXX 

I 

RESOURCE/RBT 1 25LP ( 0) ,20} 

RES0URCE/RBT64 1LP( 1) ,21; 
RESOURCE/HAR80PEN( 0) ,22} 
RESOURCE/HAR80LP(8) ,23} 

RESOURCE/HAR80PP( 0) ,24; 

RE SOURCE/ SSCPP( 1) ,25} 
RESQURCE/HAR500LP(0) ,24} 

J 

|  XXX  BATCH  LOCATIONS  XXX 

S 

GATE/RBT 125CR .CLOSE , 30 } 
GATE/HAR80CR,CLOSE,31; 

GATE/RBT 64 ICR , OPEN , 32 } 

GATE/HAR500CR , CLOSE , 33 ; 

» 

|  BEGIN  NETWORK 


XXXX  INTERACTIVE  ARRIVALS  XXXX 
ENTER, 1,1; 

ACT , ,ATRIB< 7) . LT . 0 . 5 , LOGON |  DIALUP 

ACT, ,ATRIB<7) .LT.1.3,ST1;  STUD  TERM  125 


ACT, ,ATRIB<7> .LT.2.5,ST2i 

STUD  TERM  440 

ACT, ,ATRIB<7) .LT.3.5,ST3; 

STUD  TERM  441 

ACT , ,ATRIB<7) .LT.4.5,AD1; 

FAC/ADMIN  125 

ACT, ,ATRIB(7) .LT.5.5,AD2; 

FAC/ADMIN  440 

ACT , ,ATRIB<7) .LT.4.5,AD3; 

FAC/ADMIN  441 

1 

ST  1 

; 

ST2 

ACT , ,ATRIB<7> .LT.7.5,SF1| 

TERM; 

SOFT  DEV  125 

AWAIT, STUD  123, 1 ; 

ACT,,, LOGON; 

GET  A  TERMINAL 

AWAIT ,STUD440 , 1; 

GET  A  TERMINAL 

ACT,,, LOGON; 

ST  3 

ANAIT,STUD441,1; 

ACT,,, LOGON; 

GET  A  TERMINAL 

ADI 

AWA1T,FAAD125,1; 

GET  A  TERMINAL 

■ 

ACT,,, LOGON; 

AD2 

; 

AD3 

; 

SFl 

I 

;  LOG 

ANAIT,FAAD440, 1; 

ACT,,, LOGON; 

GET  A  TERMINAL 

ANAIT,FAAD441, 1; 

ACT,,, LOGON; 

GET  A  TERMINAL 

AWAIT ,SOFT 123, 1 ; 

ACT,,, LOGON; 

GET  A  TERMINAL 

ION 

LOGON  GOON; 

ACT.USERFd)  ; 

LOG  ON  TIME 

» 

1 

1 

EVENT, 7; 

TERM; 

LOG  ON  COMPLETE 

XXX  BATCH  ARRIVALS  XXX 

ENTER, 2,1; 

ACT , ,ATRIB<7) .LT .8.5,B125| 

BATCH  LOCATION  BLDG  125 

ACT , ,ATRIB(7) .LT.9.S ,B440; 

BATCH  LOCATION  BLDG  440 

1 

B123 

ACT , ,ATRIB<7) .LT. 10 .5,B441 ) 
TERM; 

BATCH  LOCATION  BLDG  441 

AWAIT ,RBT123CR; 

CARD  READER  AVAILABLE? 

ACT ,USERF(2) ; 

WAIT  FOR  OPERATOR  INPUT 

COLCT , INT< 1) ,CR123  WAIT; 

COLLECT  WAIT  TIME 

1 

B440 

EVENT, 9; 

TERM; 

INPUT  TO  CPU 

AWAIT ,HAR80CR; 

CARD  READER  AVAILABLE? 

ACT ,USERF(2) ; 

WAIT  FOR  OPERATOR  INPUT 

COLCT, I NT ( 1) ,HAR80CR  WAIT; 

COLLECT  WAIT  TIME 

EVENT, 9; 

TERM; 

INPUT  TO  CPU 

B641 


© 


GOON, 1; 

ACT , ,ATRIB<3) .GT.2.5.AND.DRAND< 1) .GT .0 .5,H500 ; 

RBT641  OR  HAR500  BATCH? 


ACT} 

AWAIT, RBT64 ICR; 
ACT,USERF<2) ; 

COLCT ,  INT <  1)  ,CR64 1  t^IT| 
EVENT,?; 

TERM; 


CARD  READER  AVAILABLE? 
WAIT  FOR  OPERATOR  INPUT 
COLLECT  WAIT  TIME 
INPUT  TO  CPU 


H500  AWAIT ,HAR500CR; 

ACT,USERF<2) ; 

COLCT, INT(l)  ,HAR500CR  MIT; 
EVENT,?; 

TERM; 

;  INTERACTIVE  RELEASE 
ENTER, 3,1; 

ACT , ,ATRIB<7> .LT.0.5.DUP1 ; 
ACT, ,ATRIB(7) .LT. 1.3,RLS1; 
ACT, ,ATRIB<7> .LT.2.5,RLS2; 
ACT, ,ATRIB<7) .LT.3.5.RLS3 ; 
ACT, ,ATRIB<7) .LT.4.3,RLS4; 
ACT, ,ATRIB<7> .LT.5.5,RLS5; 

ACT , ,ATRIB<7) .LT.6.3,RLS6; 
ACT , ,ATRIB<7) .LT.7.5.RLS7; 
TERM; 

I 

DUP1  COLCT, INT(l) .DIALUP  SESSION; 
TERM; 

RLS1  FREE, STUD 123; 

COLCT, INT (1), STUD 125  SESSION; 
TERM; 

RLS2  FREE.STUD640; 

COLCT, INT( 1) , STUD440  SESSION; 
TERM; 

RLS3  FREE ,  STUD64 1 ; 

COLCT , INT  ( 1> , STUD64 1  SESSION; 
TERM; 

RLS4  FREE, FAAD 123; 

COLCT, INT ( 1> .FAAD125  SESSION; 
TERM; 

RLS3  FREE,FAAD640; 

COLCT, I NT ( 1) , FAAD640  SESSION; 
TERM; 

RLS6  FREE,FAAD641; 

COLCT, INT  ( 1) .FAAD641  SESSION; 
TERM; 

RLS7  FREE, SOFT 125; 

COLCT, INT(1>, SOFT 125  SESSION; 
TERM; 

! 

;  PRINTERS 


CARD  READER  AVAILABLE? 
WAIT  FOR  OPERATOR  INPUT 
COLLECT  WAIT  TIME 
INPUT  TO  CPU 


DIALUP 

STUDENT  BLDG  123 
STUDENT  BLDG  640 
STUDENT  BLDG  641 
FAC/ADMIN  BLD6  125 
FAC/ADMIN  BLDG  640 
FAC/ADMIN  BLDG  641 
SOFT  DEV  BLDG  125 


FREE  TERMINAL 
COLLECT  SESSION  TIME 

FREE  TERMINAL 
COLLECT  SESSION  TIME 

FREE  TERMINAL 
COLLECT  SESSION  TIME 

FREE  TERMINAL 
COLLECT  SESSION  TIME 

FREE  TERMINAL 
COLLECT  SESSION  TIME 

FREE  TERMINAL 
COLLECT  SESSION  TIME 

FREE  TERMINAL 
COLLECT  SESSION  TIME 


ENTER, 4, 1; 

ACT , ,ATRIB< 15)  , 
ACT , ,ATRIB( 15)  , 
ACT , ,ATRIB( 15) , 
ACT , ,ATRIB( 15)  , 
ACT , ,ATRIB( 15)  . 
ACT , ,ATRIB< 15)  . 
ACT , ,ATRI6( 15)  , 
ACT , ,ATRIB( 15) . 


.LE.1.5,PR1; 

.LE.2.5.PR2; 

.LE.3.5,PR3; 

.LE.4.5,PR4; 

.LE.5.5,PR5; 

.  LE . 6 . 5 , PR6 ; 
•LE.7.5,PR7; 
.LE.8.5,DPRT ; 


XXXX  RBT125  LINE  PRINTER  XXXX 

AWAIT, RBT125LP;  WAIT  FOR  PRINTER 

ACT ,ATRIB(8) ;  TIME  FUNCTION  OF  PRINTER 

FREE.RBT125LP;  FREE  PRINTER 

COLCT ,ATRIB<8) ,RBT125LP  TIME}  COLLECT  PRINTER  TIME 

COLCT,  INT<<S)  ,RBT125LP  It  QTIME, , 1 ;  COLLECT  PRINTER  +  QUEUE  TIME 

ACT ,  ,ATRIB(  14)  .GT .7.5, BACL;  MAS  THIS  BATCH  INPUT‘S 

TERM  | 


XXXX  RBT641  LINE  PRINTER  XXXX 

AWAIT ,RBT641LP; 

ACT,ATRIB(8) ; 

FREE,RST641LP; 

CQLCT ,ATRIB(8) ,RBT641LP  TIME; 


WAIT  FOR  PRINTER 
TIME  FUNCTION  OF  PRINTER 
FREE  PRINTER 
COLLECT  PRINTER  TIME 


COLCT, INT<4)  ,RBT441LP  It  QTIME,,  1;  COLLECT  PRINTER  ♦  QUEUE  TIME 
ACT ,  ,ATRIB<  14)  .GT .7. 5, BACL;  WAS  THIS  BATCH  INPUT? 

TERM; 

XXXX  HARRIS  88  PEN/PLOTTER  XXXX 

AWAIT, HAR88PEN;  WAIT  FOR  PRINTER 

ACT ,ATRIB(8)  ;  TIME  FUNCTION  OF  PRINTER 

FREE, HAR88 PEN;  FREE  PRINTER 

C0LCT,ATRIB(8) ,HAR80PEN  TIME;  COLLECT  PRINTER  TIME 

COLCT , I NT< 4) , HAR80PEN  &  QTIME,, 1;  COLLECT  PRINTER  ♦  QUEUE  TIME 

ACT,  ,ATRIB(  14)  .GT .7. 5, BACL;  WAS  TKS  BATCH  INPUT? 

TERM; 


XXXX  HARRIS  88  LINE  PRINTER  XXXX 

AWAIT ,HAR88LP;  » 

ACT ,ATRIB(8> ;  1 

FREE,HAR88LP;  f 

COLCT , ATRIB<8) ,HAR88LP  TIME;  ( 

COLCT ,INT<4)  ,HAR80LP  It  QTIME,,  1; 
ACT , ,ATRIB( 14) .GT .7. 5, BACL; 

TERM; 


WAIT  FOR  PRINTER 
TIME  FUNCTION  OF  PRINTER 
FREE  PRINTER 
COLLECT  PRINTER  TIME 
COLLECT  PRINTER  ♦  QUEUE  TIME 
WAS  THIS  3ATCH  INPUT? 


XXXX  HARRIS  80  PRINTER  PLOTTER  XXXX 


AWAIT, HAR80PF; 
ACT ,ATRIB<8) ; 


WAIT  FOR  PRINTER 

TIME  FUNCTION  OF  PRINTER 


H-10 


FREE,HAR86PP; 

C0LCT,ATRIB(8) ,HAR86PP  TIME; 
COLCT,  INK  4)  ,HAR80PP  fc  QTIME,,1; 
ACT , ,ATRIB< 14) .GT .7.5,BACL; 

TERM; 

XXXX  SSC  PRINTER  PLOTTER  XXXX 

AWAIT, SSCPP; 

ACT,ATRIB(8) ; 

FREE , SSCPP ; 

COLCT ,ATRIB(8) , SSCPP  TIME; 

COLCT, INT<4>  , SSCPP  It  QTir1E,,l; 
ACT , ,ATRI3( 14) .GT.7.5,BACL; 

TERM; 


FREE  PRINTER 
COLLECT  PRINTER  TIME 

COLLECT  PRINTER  4  QUEUE  TIME 
WAS  THIS  BATCH  INPUT? 


*MIT  FOR  PRINTER 
TIME  FUNCTION  OF  PRINTER 
FREE  PRINTER 
COLLECT  PRINTER  TIME 

COLLECT  PRINTER  4  QUEUE  TIME 
WAS  THIS  BATCH  INPUT? 


;  XXXX  HARRIS  568  LINE  PRINTER  XXXX 

I 

PR7  AHAIT,HAR500LP;  WAIT  FOR  PRINTER 

ACT,ATRIB(8)  ;  TIME  FUNCTION  OF  PRINTER 

FREE,HAR500LP;  FREE  PRINTER 

C0LCT,ATRIB(8) ,HAR560LP  TIME;  COLLECT  PRINTER  TIME 

COLCT,  INT(4)  ,HAR500LP  tr  JTIME, ,  1 J  COLLECT  PRINTER  4  QUEUE  TIME 
ACT, ,ATRIB< 14) .GT.7.5fBACL;  WAS  THIS  BATCH  INPUT? 

TERM; 

■ 

;  DIALUP  PRINTER 
i 

DPRT  GOON,  1 ; 

ACT,ATRIB(8> ; 

COLCT ,ATRIB(8) , DIAL  PRINT; 

EVENT, 2; 

TERM; 

I 

;  XXXX  COLLECT  BATCH  STATISTICS  XXXX 

f 

BACL  GOON, 2; 

ACT , ,  ,LOCT ; 

;  COLLECT  COMPUTER  TURNAROUND  TIMES 

ACT, ,ATRIB<7) .LT. 1.5,CYB1;  CYBER 

ACT , ,ATRIB<7) .LT .2.5,CRE1 ;  CREATE 

ACT , ,ATRIB(7) .LT.3.5,HAR1;  HARRIS  566 

ACT, ,ATRIB<7) ,LT.4.5,SSC1;  SSC 

;  COLLECT  LOCATION  TURNAROUND  TIMES 

LOCT  GOON,  1; 

ACT , ,ATRIB< 14) .LT.8.5,BAI ;  BUILDING  125 

ACT, ,ATRIB( 14) .LT.9.5,BA2;  BUILDING  640 

ACT , ,ATRIB< 14) .LT. 18.5,BA3;  BUILDING  641 

TERM; 

I 

CYB1  COLCT, INK  1)  , CYBER  TURNARND ; 

TERM; 

CRE1  COLCT, INK  1) , CREATE  TURNARND; 

TERM; 

HAR1  COLCT, INK  1)  ,HAR500  TURNARND; 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


c  x 

C  Nam*:  NETWORK  (MAIN)  X 
C  Module  Number:  1.0  X 
C  Function:  Sets  the  NSET/QSET  size  and  calls  SLAM.  X 
C  Attributes  Referenced:  none  X 
C  Global  (XX)  Variables  Referenced:  none  X 
C  Common  Blocks/Variables  Used:  none  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  SLAM  X 
C  Cal  I ing  Modules:  N/A  X 
C  Scheduled  by:  N/A  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

PROGRAM  MAIN< INPUT , OUTPUT ,TAPE5= INPUT ,TAPE6=0UTPUT> 

DIMENSION  NSET (20000) 

C 

CXXXX  COMMON  BLOCKS 

C0MM0N/SC0M1/  AC  100) ,DD( 100) ,DDL< 100) ,DTN0W,II ,MFA,MSTOP,NCLNR, 

♦  NCRDR ,NPRNT ,M'IRUN,MMSET ,NTAPE ,SS(  100)  ,SSL(  100)  ,TNEXT,TNON,XX(  100) 
COMMON  QSETC20000) 

EQUIVALENCE  (NSET ( 1) ,QSET( 1>> 

M4SETs20000 

NCRDR=5 

NPRNT=6 

NTAPE=7 

CALL  SLAM 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


c  X 
C  Name:  ARVL  X 
C  Module  Number:  l.E.S  X 
C  Function:  Sets  all  new  arrivals  attributes  and  routes  to  either  X 
C  interactive  or  batch  network  arrivals.  X 
C  Attributes  Referenced:  ILOCAT.IMACH  X 
C  Global  (XX)  Variables  Referenced:  IHOUR.UPTTIM  X 
C  Common  Blocks/Variables  Used:  DIMEN/LOGFLG  X 
C  ENTC00/I8ATCH  X 
C  EVTCOO/IARVEV  X 
C  INVALS/ARRATE  X 
C  0FF8ET/I BATST  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  X 
C  Nodules  Called:  ARVTIM, ENTER, ENT INT,GETARV. LOG, SCHDL  X 
C  Calling  Modules:  EVENT  X 
C  Scheduled  by:  ARVL , INTLC  X 
C  X 


CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

c 

SUBROUTINE  ARVL 

c 

CXXXX  COMMON  BLOCKS 

PARAMETER  (1WXLOO 10  .MAXCPIM6  ,MAXCLS-4  ,MAXSI  Z-<4) 

COTtlON/SCOMl/  A< 100) ,DD( 100) fDDL( 100) ,DTN0W,II ,MFA,MSTOP,NCLNR, 


1-2 


♦  NCRDR ,NPRNT , WRUN ,NNSET ,NTAPE , SS(  188)  , SSL(  188)  ,TNEXT ,TNON,XX(  108) 
LOGICAL  LOGFLG 

COttlON/DIMEN/  NUMLOC  .NUMCPU ,NUMCLS  ,NUMSI  2  ,NUMPRT  .NUMGAT , LOGFLG 
COMMON/ ENTCOD/  INTARV, IBATCH,NRLSIN, IPRTEN 

COMMON/ EVTCOD/  I CLKEV , INTHEV , IARVEV , I PEREV , I CPDEV , LATEVT , I RESEV , 

+  ISTCEV 

COMMON/ I NVALS/  ARRATE(MAXL0C,24> ,DIALUP(W0(CPU,24) ,FRTABL<MAXLOC, 

♦  MAXCPU,MAXCLS,MAXSIZ) 

COMhfflN/OFFSET/  I CPUOS , I HLDOS , I RTSTR , I TRMOS , I BAT ST , I GATOS , I PRTOS , 

♦  I PORTS 

EQUIVALENCE  <IL0CAT,A<2)> ,( IMACH,A(3)> 

EQUIVALENCE  <IHOUR,XX( 1>> , (UPTTIM,XX(5>) 

C 

CXX**  SCHEDULE  NEXT  ARRIVAL 
IORGh=IMACH 

IF  (  ARRATE ( I LOCAT , I HOUR)  .GT.  8.8)  THEN 
I MACH® 0 

XT  I  ME=ARVTI  M  (  ARRATE  <  I  LOCAT ,  I  HOW?)  ) 

ELSE 

y  fjApi  i,  i 

XTIME-UPTTIM-TNGW 

ENDIF 

CALL  SCHDL< IARVEV,XTIME,A) 

C 

CXXX*  IF  ONLY  CHECK  FOR  UPDATE  THEN  RETURN 
IF  < IORGM  .GT.  8)  THEN 

IF  (LOGFLG)  CALL  LOG(l,-l) 

RETURN 

ENDIF 

C 

CXXXX  SET  ARRIVAL  ATTRIBUTES 
CALL  GETARV 
C 

CXXXX  SUBMIT  TO  EITHER  INTERACTIVE  ARRIVAL  OR  BATCH  ARRIVAL 
IF  ( I LOCAT  .LT.  IBATST)  THEN 
CALL  ENT  I  NT 

ELSE 

CALL  ENTER< I BATCH ,  A) 

ENDIF 

IF  (LOGFLG)  CALL  L00(2,-l> 

RETURN 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


C  X 
C  Nuti  BLOCK  DATA  X 
C  Module  Numbers  l.B  X 
C  Functions  Define*  model'*  common  blocks  end  set*  defaults  vie  X 
C  DATA  stetessents.  X 
C  Attribute*  Referenced s  none  X 
C  Globe!  (XX)  Variables  Referenced!  none  X 
C  Common  Blocks/Veri able*  Used!  All  X 
C  Common  Blocks/Variables  Changed s  See  DATA  statements  X 
C  Modules  Calleds  N/A  X 
C  Calling  Module*!  N/A  X 
C  Scheduled  byi  N/A  X 


1-3 


C  X 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

BLOCK  DATA 

c 

PARAMETER  (NWLOO  It  ,**XCPl*=4  ,N*XCLS=4 ,MAXSI  2=4  ,MAXPRT=  1 8) 
PARAMETER  (MAXGAT=4  ,MAX1»WT=5> 

CXXXX  COMMON  BLOCKS 

COltlON/SCOMl/  A< 188) ,DD<188> ,DDL(  188) ,DTNOW, 1 1 ,MFA,MSTOP,NCLNR, 

+  NCRDR ,NPRNT ,N4RUN ,MSET ,NTAPE , SS<  188)  ,SSL(  188)  ,TNEXT,TNOW,XX(  188) 
COMMON/ANYUAL/  <WYDST(MAXCLS, MAXCPU) 

COMMON/ CP STAT/  ITRMOL , ITRMWP, ITRMAC , I  EX JOB , IMEM , I CPU , IN OUT , IMPL , 

+  OWCPU(MAXCPU) 

LOGICAL  LOGFLG 

COMMON/D I  MEN/  NUMLOC  .NUMCPU .NUMCLS  ,NUMSI  Z ,  NUMPRT ,  NUMGAT ,  .OGFLG 
" OMMON/ENT COD/  IKTARV,  IBATCH.NRLSIN,  IPRTEN 

JOMMON/EVTCOD/  I CLKEV ,  INTHEV ,  I ARUEV , IPEREV, I CPDEV , LATEVT , IRESEU, 

+  ISTCEV 

COMMON/FACTOR/  DISTRBCMAXCLS.MAXSIZ ,4,2) 

COMMON/ 1 NUALS/  ARRATE(hAXLOC , 24)  ,DIALUP(WO<CPU,24)  , FRTABL (MAXLOC , 

♦  MAXCPU,MAXCLS,MAXSIZ> 

COMMON/ 1  NT  PR  B/  ONEJOB,NPPROB(MAXCLS)  ,BATINT<*!WCPU,MAXCLS) 
COMMON/LOGPRM/  LOGON! 23) ,L0GCNT<25> 

COTWON/OFFSET/  ICPUOS, IHLDOS, IRTSTR, ITRMOS, IBATST, IGATOS, IPRTOS, 

♦  I PORTS 

COMKJN/PRTPRM/  PRTSPD(MAXPRT) , DUPRT , PRTTAB ( MAXCPU , MAXL OC.MAXPRT) , 

♦  PCPRTM , PCPRTS 

COMMON/ SC HEDL/  SCHBAT (MAXGAT ,7,2) ,SCHCPU( MAXCPU, 7,2) , 

♦  I PRGAT (MAXGAT  ,MAXPRT>  ,  I CRGAT (MAXCPU  .MAXGAT) 

COMMON/UNITS/  I FACT , I STUD , I ADMN , I OTHR , I BTCH , I CONST 
COMMON/VARCOM/  CPULTM , CPULTS, TRMLTM ,TRMLTS , OPRMN , OPRSTD,XLOGM4 , 

♦  XLOGST 

COMMON/WAITCM/  TR1GIAT (MAXLOC  ,MA)04AT)  ,NAIT>W,NAITST,PORTWT(MAXWAT) 

C 

CXXXX  DATA  STATEMENTS 

DATA  ICLKEV,INTHEV,IARVEV,IPEREV,ICPDEV,LATEVT/1,2,5,4,8,18/ 

DATA  IRESEV,ISTCEV/3,4/ 

DATA  ITRM0L,ITRM4P,ITRMAC,IEXJ0B,IMEM,ICPU,IN0UT,IMPL/1,2,3,4,5, 

♦  4,7,8/ 

DATA  INTARU,IBATCH,NRLSIN,IPRTEN/1 ,2,3,4/ 

DATA  LOGON/ 25X8/ 

DATA  LOGCNT/25X8/ 

DATA  ICPUOS, IHLDOS, IRTSTR, ITRMOS, IGATOS, IPRTOS/?, 8, 1,8, 8, 7/ 

DATA  I PORTS/3?/ 

DATA  SCHBAT, SCHCPU/148X- 1.8/ 

DATA  I FACT, I STUD, I ADtf4, I OTHR, I BTCH, I CONST/8,?, 18, 11, 12,13/ 

DATA  CPULTM, CPULTS/ 28888 . ,7288 ./ 

DATA  TRMLTM, TRMLTS/7288., 3488./ 

DATA  OPRMN,  0PRSTD,XL09ft,XL06ST/ 1588 . , 388 . , 48 . , 38 ./ 

DATA  P0RTMT/8.8,8.5,8.4,8 .2,8. 1/ 

DATA  HAITMN,NAITST/7288. ,3488./ 

DATA  PCPRTM, PCPRTS/588., 288./ 

DATA  IPRGAT/48X8/ 

DATA  ICRGAT/24X8/ 

DATA  CNUCPU/4X 1 .8/ 


END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


c  x 

C  Nan* i  CALSCH  X 
C  Module  Number:  l.C.l  X 
C  Function:  Schedules  all  computers  up/down  and  batch  locations  X 
C  open/close  -for  a  day.  X 
C  Attributes  Re-ferenced:  1C0MP,IGATE,ITYPE  X 
C  Global  <XX)  Variables  Re-ferenced:  IDAY  X 
C  Common  Blocks/Variables  Used:  DIMEN/NUhCPU,NUMGAT  X 
C  EVTCOD/IRESEV  X 
C  OFFSET/ 1 CPUOS , I  GATOS  X 
C  SCHEDL/SCHCPU , SCHBAT  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  SCHDL  X 
C  Calling  Modules:  DYPROC.INTLC  X 
C  Scheduled  by:  none  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  CALSCH 

PARAMETER  (MAXGAT-4,MAXCPl*4,MAXPRT*10) 

C 

COMMON/SCGM 1/  A<  106) ,DD< 100) ,DDL( 106) , DTNGW, 1 1 ,MFA,MSTOP,NCLNR, 

♦  'CRDR,NPRNT,MMRUN,NNSET ,NTAPE,SS( 100) ,SSL( 100) ,TNEXT,TNON,XX(  100) 
L.GICAL  L0GFL6 

CC  MON/DIMEN/  NUMLOC , NUMCPU , NUMCLS .NUMSIZ ,NUMPRT ,NU1GAT , LOGFLG 
COMMON/ EVT COO/  I CLKEV ,  INTHEV ,  I ARVEV ,  I PEREV ,  I CPDEV ,  LATEVT ,  I RESEV , 

♦  ISTCEV 

COtfiON/OFFSET/  ICPUOS.IHLDOS.IRTSTR, ITRMOS,IBATST,IGATOS,IPRTOS, 

♦  I PORTS 

COMMON/SC HEDL/  SCHBAT (MAX GAT , 7,2) ,SCHCPU(MAXCPU,7,2) , 

♦  IPRGAT(MAXGAT,MAXPRT) , ICRGAT(MAXCPU,MAXGAT) 

EQUIVALENCE  ( I0AY,XX<2) ) 

EQUIVALENCE  ( ICOMP, IGATE,A(2> > ,(ITYPE,A(3)) 

C 

CXXXX  SCHEDULE  COMPUTERS  UP/ DOWN  TODAY 
DO  100  I- 1, NUMCPU 
I COMP* I CPUOS ♦ I 
I TYPE-0 

IF  ( SCHCPUt 1 , 1  DAY , 2)  .GE.  0.0)  CALL  SCHDLURESEV, 

♦  SCHCPUt I , I DAY ,2) » A) 

I TYPE- 1 

IF  (SCHCPUd ,  IDAY,  1)  .GE.  0.6)  CALL  SCHDL ( I RESEV , 

♦  SCHCPUt I, IDAY, 1) , A) 

100  CONTINUE 

C 

CXXXX  SCHEDULE  BATCH< GATES)  OPEN/CLOSE  TODAY 
DO  200  1*1 ,NUMGAT 
I GATE* I GATOS* I 
I TYPE-0 

IF  ( SCHBAT (1,1 DAY , 2)  .GE.  0.6)  CALL  SCHDLt IRESEV, 

♦  SCHBATd  , IDAY, 2)  ,A) 

I TYPE- 1 

IF  ( SCHBATd,  I  DAY  ,1)  .GE.  0.0)  CALL  SCHDLdRESEV, 


♦  SCHBAT  <1,1 DAY , 1) ,  A) 

280  CONTINUE 
RETURN 
END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


C  X 
C  Name:  CLOCK  X 
C  Module  Number:  l.E.l  X 
C  Function:  Controls  all  time  processing —  end  of  hour,  end  of  day,X 
C  and  end  of  Meek .  X 
C  Attributes  Referenced:  none  X 
C  Global  (XX)  Variables  Referenced:  I HOUR, I DAY, I MEEK, I STOP  X 
C  Common  Blocks/Variables  Used:  EVTCOD/ICLKEV  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  DYPROC,EDPROC,HRPROC,SCHDL,MKPROC  X 
C  Calling  Modules:  EVENT  X 
C  Schedu  ed  by:  CLOCK, INTLC  X 
C  X 


CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

c 

SUBROUTINE  CLOCK 
C 

CXXXX  COMMON  BLOCKS 

COMMON/SCGM 1/  A< 100)  ,DD< 100) ,DDL( 100) , DTNOW , 1 1 ,MFA ,MSTOP ,NCLNR , 

♦  NCRDR,NPRNT,1MRUN,NNSET,NTAPE,SS<  100)  ,SSL(  100)  ,TNEXT,TNON,XX(  100) 
COMMON/EVTCOD/  I CLKEV , INTHEV , IARVEV , I PEREV , I CPDEV , LATEVT , I RESEV , 

♦  ISTCEV 
C 

EQUIVALENCE  (IHOUR,XX( 1>> , <I0AY,XXC2>> ,(INEEK,XX(3)) , 

♦  < I ST OP, XX (d) ) 

C 

CXXXX  SCHEDULE  NEXT  UPDATE 

GALL  SCHDL( I CLKEV , 3600 .  f A) 

CXXXX  DO  END  HOUR  PROCESSING 
I HOUR* I HOUR+ 1 
CALL  HRPROC 

CXXXX  IF  END  OF  DAY  DO  END  DAY  PROCESSING 
IF  ( I HOUR  .EQ.  25)  THEN 
I  DAY**  I  DAY*  1 
I HOUR- 1 
CALL  DYPROC 
END  IF 

CXXXX  IF  END  OF  MEEK  DO  END  MEEK  PROCESSING 
IF  (1DAY  .EQ.  8)  THEN 
IDAY-1 

IWEEK-IMEEK+1 
CALL  HKPROC 
END  IF 

CXXXX  CHECK  FOR  END  OF  RIM 

IF  (IMEEK  .EQ.  I STOP)  CALL  EDPROC 

RETURN 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 
C  X 

C  Name:  CPUARV  X 


C  Module  Number:  1.E.9  X 
C  Function:  Calculates  a  job's  run  parameters;  adjusts  CPU's  X 
C  states;  schedules  departure  if  room  in  'execute'  else  X 
C  puts  job  in  hold  queue.  X 
C  Attributes  Referenced:  ILOCAT, IMACH, ICLASS, ISIZE,ANAIT ,ASECCP,  X 
C  ARUN, INTBAT, I ORG,AMEM,AIOSEC  X 
C  Global  (XX)  Variables  Referenced:  none  X 
C  Common  Blocks/Variables  Used:  CPSTAT/CWCPU,ITRMAC,IMPL,IEXJOB,  X 
C  I CPU, I MEM, INOUT  X 
C  DIMEN/LOGFLG  X 
C  EVTCOO/ICPDEV  X 
C  OFFSET/ l BAT ST , I HL DOS  X 
C  Common  Blocks/Variables  Changed:  SS  area  X 
C  Modules  Called:  CPUSEC,FIGRUN,FILEM,LOG,MEMSIZ , SCHDL.XIOSEC  X 
C  Calling  Modules:  EVENT, INTWD  X 
C  Scheduled  by:  NETWORK-BATCH  ARRIVALS  X 
C  X 


CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

c 

SUBROUTINE  CPUARV 
REAL  MEMSIZ 
PARAMETER  (MAXCPl>*6) 

C 

CXXXX  C0M10N  BLOCKS 

COMMON/SCOM 1/  A( 160) ,DD< 100) ,DOL( 100) , DTNOW , 1 1 ,MFA,MSTOP,NCLNR, 

♦  NCRDR,NPRNT,hWRUN,NNSFT‘,NTAPElSS(  100)  ,SSL(  100)  ,TNEXT ,TNOW ,XX(  100) 
OXtlON/CPSTAT/  ITRMOL ,  i  rR*MPf  ITRMAC ,  I  EXJOB,  IMEM ,  ICPU,  INOUT ,  IMPL , 

♦  CNVCPU(MAXCPU) 

LOGICAL  LOGFLG 

COttlON/DIMEN/  NUMLOC  .NUMCPU ,NUMCLS  ,NLMSI  Z , NUMPRT  .NUMGAT , LOGFLG 
COMION/EVTCOD/  I CLKEV ,  INTHEV ,  I ARVEV  ,  IPEREV,  ICPOEV,LATEVT ,  IRESEV, 

♦  ISTCEV 

C0M10N/0FFSET/  ICPUOS, IHLDOS,IRTSTR,ITRMOS,IBATST,IGATOS,IPRTOS, 

♦  I PORTS 

EQUIVALENCE  <IL0CAT,A<2>> , ( IMACH,A(3) ) , < ICLASS,A(4) ) , < ISIZE,A(3) )  , 

♦  (AWAIT, A(4>) , <ASECCP,A<7)> ,(ARUN,A(8)) ,( INTBAT ,A<9)) , 

♦  ( I0RG,A( 12) ) ,(AMEM,A( 14)) ,<AI0SEC,A< 15)) 

C 

CXXXX  FIGURE  CPU  TIME,  I/O  TIME,  AND  MEMORY  SIZE 
ASECCP=CPUS£C( IORG , I SI ZE) XCNVCPU( IhWCH) 

AME)t«MEMSIZ(IORG,ISIZE) 

AIOSEOXIOSEC(IORG,ISIZD 

C 

CXXXX  FIGURE  COMPUTER  INDEX 
INDEX*IMACHX 10-10 
C 

CXXXX  IF  IN  'WAIT'  MODE  WHILE  INTERACTIVE  -  DECREMENT  ACTIVE  TERMINAL 
IF  ((INTBAT  .EQ.  1) .AND. (ILOCAT  .LT.  IBATST)) 

♦  SS( INDEX* ITRMAC) *SS( INDEX* ITRMAC) - 1 . 

IF  (SS( INDEX* IMPL)  .LE.  SS (INDEX* I EX JOB))  THEN 
C  XXX  NO  ROOM  -  PUT  IN  HOLD  QUEUE 

M4AIT*TN0H 

IF  (LOGFLG)  CALL  LOGO, INDEX) 

CALL  FILEMdMACH*IHLDOS,A) 

ELSE 


C  XXX  START  THE  JOB  XXX 

ARl»*=F  I GRUN  <  I  MACH ,  I ORG ,  ASECCP ,  AHEM) 

SSC INDEX* I EXJOB) =SS( INDEX* I EXJOB) *  1 . 

SS< INDEX* ICPU) =SS(  INDEX* I CPU) *ASECCP 
SS< INDEX* IMEM) =SS< INDEX* IMEM) +AMEM 
SS< INDEX* INOUT)  =SS( INDEX* INOUT) *AIOSEC 
IF  <LOGFLG)  CALL  L0G<4, INDEX) 

C  XXXX  SCHEDULE  DEPARTURE  XXXX 

CALL  SCHDL ( I CPDEV ,  ARUN ,  A  > 

END  IF 

RETURN 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


c  X 
C  Nam*:  CPUDPT  X 
C  Module  Number:  1.E.8  X 
C  Function:  Adjust  JPU  states  as  job  leaves  ‘'execute';  routes  to  X 
C  printer  if  word  processing;  and  if  job  in  hold  queue  -  X 
C  start.  X 
C  Attributes  Referenced:  1 LOCAT , 1 MACH , I CLASS , I SI 2E , APRTQ , ASECCP ,  X 
C  AMACH, ARUN ,APRTL ,  INTBAT ,  I  ORG  ,AMIM , ALOCAT , AI OSEC  X 
C  G1c*:ii  (XX)  Variables  Referenced:  INPCLS  X 
C  Com  ■i:n  Blocks/Variables  Used:  CPSTAT/IEXJOB,  IMEM,  ICPU,  INOUT  X 
C  DIMEN/LOGFLG  X 
C  EVTCOD/ICPDEV  X 
C  OFFSET/ I BATST, IRTSTR, IHLDOS  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  COLCT ,FIGRUN,INTtMD,L06,PRTLIN,RM0UE,RTPRT,SCHDL  X 
C  Calling  Modules:  EVENT  X 
C  Scheduled  by:  CPUARV, CPUDPT  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  CPUDPT 
PARAMETER  (MAXCPU-4) 

C 

CXXXX  COfWGN  BLOCKS 

C0»t10N/SCail/  A< 100) ,DD( 100) ,DDL( 100) ,DTN0M,II ,MFA,MSTOP,NCLNR, 

*  NCRDR ,NPRNT ,hMRUN ,  WSET ,MTAPE , SS ( 100) ,SSL( 100) ,TNEXT,TN0W,XX( 100) 
CCMMON/CPSTAT/  ITRMOL ,  ITRhMP ,  ITIWAC ,  I  EXJOB ,  IMEM ,  ICPU,  INOUT ,  IMPL , 

*  CNVCPU(MAXCPU) 

LOGICAL  L0GFL6 

COMMGN/DIMEN/  NUMLOC , NUMCPU  .NUMCLS  ,NUMS 1 2  ,NUMPRT , NUMGAT , LOGFLG 
COrtWN/EVTCOD/  I CLKEV ,  INTHEV ,  I ARVEV ,  I PEREV ,  I CPDEV ,  LATE VT ,  I RESEV , 

*  ISTCEV 

COMiON/ OFFSET/  I CPUOS , I HLDOS , I RTSTR , I TRMOS , I BATST , I GATOS , I PRTOS , 

*  I PORTS 

EQUIVALENCE  (IL0CAT,A(2)) ,<IMACH,A<3>) , ( ICLASS,A(4>) ,(ISIZE,A(9>) , 

*  (APRTQ, A(6)) , (ASECCP,  AMACH, A<7)> , (ARUN, APRTL,A<8>) , 

*  ( INTBAT ,A<9) ) , ( I0RG,A( 12) ) , (AMEM.ALOCAT ,A( 14) ) , (AIOSEC,A( 15) ) 
EQUIVALENCE  (IWPCLS,XX(4>> 

C 

CXXXX  CHANGE  CPU  STATES 
INDEX-IMACHX 10-10 

SS( INDEX* I EXJOB) -SS< INDEX* I EXJOB) - 1 . 


SS< INDEX* IMEM)=SS< I  NO  EX + I HEM) -AMEN 
C 

CXXJfX  COLLECT  INTERACTIVE  >ESPONSE  TIMES 

IF  ( ( I LOCAT  .LT.  IBATST) .AND. ( INTBAT  .EQ.  0))  THEN 
I«IRTSTR*( IMACH- 1) 

CALL  COLCT (ARUN, I) 

END  IF 
C 

CXXXX  INPUT  TO  PRINTER  IF  BATCH  OR  WORD  PROCESSING  CLASS 

IF  ((ILOCAT  .GE.  IBATST)  .OR.  (ICLASS  .EQ.  IWPCLS))  THEN 
ALOCAT=REAL( I LOCAT) 

AMACH=REAL(  IMACH) 

APRTL=PRTLIN( IORG, ISIZE) 

APRTQ=TNOW 

CALL  RTPRT( IMACH, ILOCAT) 

ELSE 

C  XXXX  ROUTE  TO  INTFND  IF  IN  PMIT  MODE  AND  CPU  UP  XXXI 

IF  ( < INTBAT  .EQ.  1)  .f*ID.(XX(IMACH*ICPUOS>  .GT.0.5))  CALL  INTKND 
END  IF 

IF  (LOGFLG)  CALL  LOG<5, INDEX) 

C 

CXXXX  IF  ANY  JOBS  IN  HOLD  QUEUE  -  START  ONE 
IF  (NNQ( IMACH* IHLDOS)  .GT.  0)  THEN 
CALL  RMOVE( 1,IMACH*IHLD0S,A) 

INDEX=IMACHX 10-10 

SS( INDEX* I EX JOB) «SS< INDEX* I EXJOB) *  1 . 

SS< INDEX*ICPU)=SS( INDEX* I CPU) +ASECCP 
SS< INDEX* I MEM) »SS( INDEX* IMEM) +AMEM 
SS< INDEX* INOUT) »SS< INDEX* INOUT) *AI OSEC 
ARUN=FIGRUN( IMACH , I ORG , ASECCP , AMEM) 

IF  (LOGFLG)  CALL  L0G(6, INDEX) 

CALL  SCHDL(ICPDEV,ARUN,A) 

END  IF 

RETURN 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 'XXXXXX 


C  X 
C  Nan* i  DYPROC  i 
C  Module  Number i  l.E.1.2  X 
C  Function!  Performs  end  of  day  processing  —  calculates  schedule  X 
C  and  updates  arrival  rates.  X 
C  Attributes  Referenced!  none  X 
C  Global  (XX)  Variables  Referenced!  IDAY  X 
C  Common  Blocks/Variables  Used!  DIMEN/LOGFLG  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called!  CALSCH.UPDARV  X 
C  Cal  1 ing  Modules!  CLOCK  X 
C  Scheduled  byi  none  X 
C  X 


CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

C 

SUBROUTINE  DYPROC 
C 

C0M10N/SCGM1/  A(  100)  ,DD(  100)  ,DDL(  100)  , DTNOM ,  1 1  ,MFA ,MST0P ,NCLNR , 

*  NCRDR,NPRNT ,MfRUN,NNSET ,NTAPE,SS(  100)  ,SSL(  100)  ,TNEXT,TNOW,XXC  101) 


LOGICAL  LOGFLG 

COMMON/DIHEN/  NUMLOC ,NUMCPU , NUMCLS ,NUMS I 2 ,NUMPRT .NUMGAT , LOGFLG 
EQUIVALENCE  <IDAY,XX(2>) 

C 

CXXXX  UPDATE  ARRIVAL  RATES  IF  NOT  END  OF  WEEK 
IF  (IDAY  .LE.  7)  THEN 
CALL  UPDARV 
CALL  CALSCH 
ENDIF 

IF  (LOGFLG)  WRITE(NPRNT, 10)  TNON.IDAY 
RETURN 

10  FORMAT < '8ARR I VAL  TABLES  UPDATE  '.E11.4,'  DAY  »  ',I3> 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


C  X 
C  Name:  EDPROC  X 
C  Module  Number i  l.E.i.4  X 
C  Function:  Performs  end  of  run  processing  —  csets  MST0P=- 1  X 
C  Attributes  Referenced:  none  X 
C  Global  OOO  Variables  Referenced:  none  X 
C  Common  Blocks/Variables  Used:  none  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  none  X 
C  Calling  Modules:  CLOCK  X 
C  Scheduled  by:  none  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  EDPROC 
C 

CXXXX  COMMON  BLOCKS 

COMMON/SCGM 1/  A( 100) ,DD( 100) ,DDL(  100) ,DTN0W, 1 1 ,MFA,MSTOP,NCLNR, 

♦  NCRDR,NPRNT,hWRUN,MMSET,NTAPE,SS(  100)  ,SSL(  100)  ,7NEXT ,TNOH,XX(  100) 
C 

c 

MSTOP—1 

RETURN 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


C  X 
c  Name:  ENTINT  X 
C  Module  Number:  1.C.2  X 
C  Function:  Checks  resource  availability  for  an  interactive  X 
C  arrival  »nd  may  enter  into  network.  X 
C  Attributes  Referenced:  ILOCAT.IMACH  X 
C  Global  (XX)  Variables  Referenced:  none  X 
C  Common  Blocks/Variables  Used:  DIMEN/LOGFLG  X 
C  ENTCOO/INTARV  X 
C  OFFSET/I CPUOS , ITRMOS  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  ENTER,LOG,RESCHD,MAITTR  X 
C  Calling  Modules:  ARVLPLATARV, PERIOD  X 
C  Scheduled  by:  none  X 
C  X 


exxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


c 

SUBROUTINE  ENT  I  NT 
C 

CXXXX  COhMON  BLOCKS 

PARAMETER  (hWXCLS=6,MAXSI2=<4) 

COHION/SCOMl/  A< 180) ,DD! 100) ,DDL( 100) , DTNGW , 1 1 ,MFA ,MSTOP ,NCLNR , 

*  NCRDR,NPRNT,M^RUN,NNSET,NTAPE ,SS( 100) ,SSL( 100) ,TNEXT ,TNON,XX( 100) 
LOGICAL  LOGFLG 

COMMON/D  I  MEN/  NUMLOC ,  NUMCPU  ,NIJMCLS , NUMS I Z ,  NUMPRT ,  NUMGAT , LOGFLG 
COMMON/ ENT COO/  INTARV, IBATCH,NRLSIN, IPRTEN 

COMION/OFFSET /  I CPUOS , I HLDOS , I RTSTR , ITRMOS , I  BAT  ST , I GATOS , I PRTOS , 

+  I PORTS 

EQUIVALENCE  ! IL0CAT,A!2) > ,!IMACH,A!3)> 

C 

CXXXX  IS  COMPUTER  AVAILABLE 

IF  (XX! IMACH+ICPUOS)  .GT.  0.5)  THEN 
C  XXXX  YES  -  BUT  IS  A  TERMINAL  AVAILABLE  XXXX 

IF  !NNRSC! I LOCAT+ ITRMOS)  .GT.  0)  THEN 
C  XXXX  YES  -  GRAB  IT  XXXX 

CALL  ENTER! INTARV ,  A) 

ELSE 

C  XXXX  NO  -  WILL  THE  USER  WAIT?  XXXX 

X=WAITTR(DUFMY)  ’ 

IF  (X  .GT.  0.5)  THEN 

C  XXXX  YES  -  ENTER  TERMINAL  QUEUE  XXXX 

CALL  ENTER! INTARV, A) 

END  IF 
ENDIF 

ELSE 

C  XXXX  RESCHEDULE  LATER  ARRIVAL  XXXX 

CALL  RESCHD 
ENDIF 
C 

IF  ! LOGFLG)  CALL  LOG! 19,-1) 

RETURN 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


c  X 
C  Nih:  EVENT  X 
C  Module  Number:  1.2  X 
C  Function:  Cells  approparate  sub-rout  in*  as  events  exit  event  X 
C  calendar.  X 
C  Attributes  Referenced:  none  X 
C  Global  (XX)  Variables  Referenced:  none  X 
C  Common  Blocks/Variables  Used:  none  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  ARVL, CLOCK, CPUARV,CPUDPT, I NTtWD,LATARV, LOGON,  X 
C  PERIOD, RESORC , SETCPU  X 
C  Cal  1 ing  Modules:  SLAM  X 
C  Scheduled  by:  none  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  EVENT (KOOE) 

C 
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GOTO  ( 10 ,20, 30 ,40, 50, 60, 79, 89, 99, 180)  KOOE 

19  CALL  CLOCK 
RETURN 

20  CALL  INTHND 
RETURN 

39  CALL  RESORC 
RETURN 

49  CALL  SETCPU 
RETURN 

50  CALL  ARVL 
RETURN 

60  CALL  PERIOD 
RETURN 

70  CALL  LOGON 
RETURN 

80  CALL  CPUDPT 
RETURN 

90  CALL  CPUARV 
RETURN 

100  CALL  LATARV 
RETURN 
END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


C  X 
C  Name:  FIGUTL  X 
C  hoc-lie  Number:  l.E. 1.1.1  X 
C  Function:  Figures  and  prints  CPU  and  I/O  utilizations.  X 
C  Attributes  Referenced:  none  X 
;  Global  (XX)  Variables  Referenced:  INTER  X 
C  Common  Blocks/Variables  Used:  CP 3TAT/ICPU, INOUT  X 
C  D I MEN/NUMCPU  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  none  X 
C  Calling  Modules:  HRPROC  X 
C  Scheduled  by:  none  X 
C  X 


CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXfXXXXXXXXXXXXXXXXXX 

c 

SUBROUTINE  FIGUTL 
PARAMETER  (WkXCPI>6) 

C 

CXXXX  COMMON  BLOCKS 

COMMON/SCQM 1/  AC  100)  ,DD<  100)  ,DDL<  100)  ,DTNQW,I  I  ,MFA ,MST0P ,NCLNR , 

♦  NCRDR ,NPRNT ,WRUN ,  hNSET ,NTAPE , SS ( 100)  ,SSL<  100)  ,TNEXT,TNOH,XX(  100) 
COttIGN/CPSTAT/  ITRMOL ,  I TRM4P ,  I TRMAC ,  I  EX  JOB ,  IMEM ,  I  CPU ,  INOUT ,  IMPL , 

♦  CWCPU(tWXCPU) 

LOGICAL  LOGFLG 

COMMON/DIMEN/  NUMLOC ,NUMCPU ,NUMCLS ,NUMSI Z ,NUMPRT , NUMGAT , LOGFLG 
EQUIVALENCE  < INTER, XX < 19)) 

C 

CXXXX  FIGURE  CPU  AND  I/O  UTILIZATIONS 
X INTER-REAL < INTER) X3600 . 

NRITECNPRNT ,  500) 

DO  100  I«1,NUMCPU 
INDEX-IX19-19 
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i.  i  /- . 
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& 


o 


UT I LC=SS( I NDEX+ 1 CPU) /X INTER 
UTI LI=SS< INDEX* INOUT) /X INTER 
MRITE(NPRNT,310)  I  ,UTILC,lfTILI 
SS( INDEX* I CPU) =0.0 
SS( INDEX* INOUT) =0 .0 
lee  CONTINUE 
RETURN 
C 

CXXXX  FORMAT  STATEMENTS 

300  FORmT('0XXXX  CPU  <*©  I/O  UTILIZATIONS  XXXX',/, 

♦  'COMPUTER  CPU  UTIL  1/0  UTIL') 

510  FORMATS  ',I4,F13.4,F10.4) 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

C  X 

C  Name:  GETARV  X 

C  Module  Number:  l.E.5.1  X 

C  Function:  Sets  arrival  attributes.  X 

C  Attributes  Referenced:  ATIME,ILOCAT,IMACH,ICLASS,ISIZE,AI*>IT,  X 

C  ALOC JP ,  ACPU , I NTBAT , I D I AL , I ORG  X 

C  61oba1  (XX)  Variables  Referenced:  I HOUR  X 

C  Common  Blocks/Variables  Used:  ANYVAL/ANYDST  X 

C  D IMEN/NUMCPU  ,NUMCLS  ,NUMS  1 2  X 

C  INVALS/DIALUP , FRTABL  X 

C  OFF3ET/IBATST  X 

C  Common  Blocks/Variables  Changed:  none  X 

C  Moo j  as  Called:  none  X 

C  Cal i ing  Modules:  ARVLT  X 

C  Scheduled  by:  none  X 

C  X 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  GETARV 

PARAMETER  (MAXLOO10 ,tWXCPU«6,MAXCL^6 ,MAXSIZ=d) 

C 

CXXXX  COMMON  BLOCKS 

CQMMON/SCQM 1/  A( 100) ,00(100) ,OOL( 100) ,DTNGW,II ,MFA,MSTOP,NCLNR, 

♦  NCRDR ,NPRNT ,M4RUN ,M4SET ,NTAPE , SS ( 100)  ,SSL(  100)  ,TNEXT,TNOH,XX(  100) 
CQMiON/ANYVAL/  AhM>ST(MAXCLS,MAXCPU> 

LOGICAL  LOGFLG 

COMMON/DIMEN/  NUMLOC , NIWCPU .NUMCLS ,NUMSI Z ,NUMPRT .NUMGAT , LOGFLG 
COMMON/ IIWALS/  ARRATE(MAXLOC,24> ,DIALUP<MAXCPU,24) , FRTABL (MAXLOC , 

♦  MAXCPU,MAXCLS,MAXSIZ) 

COMMON/OFFSET/  ICPUOS.IHLDOS, IRTSTR, ITRMOS, IBATST,IGATOS,IPRTOS, 

♦  I PORTS 

EQUIVALENCE  (ATIME,A( D) ,( IL0CAT,A(2)) , ( IMACH,A<3) ) , (ICLASS,A(4) ) , 

♦  (ISIZE,A(3)) , (AWAIT, A(4>) , <AL0CJP,A(7) ) , (ACPU,A(8> ) , 

♦  ( INTBAT ,A<9)>  ,  ( IDIAL,A(  ID)  ,  (I0RG,A(  12)) 

EQUIVALENCE  (IH0UR,XX( 1)> 

C 

CXXXX  SET  ARRIVAL  ATTRIBUTES 
ATIME-TNON 
AHAIT-0 .0 
Rt^DRANO(l) 

DO  500  I«1,NUMCPU*1 
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DO  400  J-l ,NUMCLS 

DO  300  K= 1 ,NUMSI Z 

IF  <RN  .LE.  FRTABL( ILOCAT , I , J,K) )  THEN 
ir>WCK=I 
ICLASS=J 
!3IZE*K 
60  TO  525 
END  IF 

3O0  CONTINUE 

400  CONTINUE 
500  CONTINUE 
C 

CXXX*  IF  MACHINE  -'ANY'  THEN  DETERMINE  MACHINE 
525  IF  ( I MACH  .GE.  NUMCPU+1)  THEN 
RN-DRANO(l) 

DO  550  1=1  ,NLMCPU 

IF  CRN  .LE.  ANYDST(ICLASS,I>>  THEN 
IMACtt=I 
GO  TO  600 
END  IF 

550  CONTINUE 
END  IF 

600  IORG=ICLASS 
INTBAT-0 
C 

CXXXX  IS  THIS  A  DIALUP  ARRIVAL 
RhM)AAND(  1) 

IDIAL-0 

ACPlMtEAL(  IMACH) 

ALOCJP«REAL( I LOCAT) 

IF  ((ILOCAT  .LT.  I BAT ST) .AND. CRN  .LE.  DIALUP(UttCH,IHOUR>))  THEN 
I  DIAL- 1 
ALOCJP-0.0 
END  IF 
C 

RETURN 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
c 

C  Null  HRPROC 
C  Module  Number i  l.E.1.1 

C  Function i  Performs  end  of  hour  processing. 

C  Attributes  Referenced!  none 

C  Global  (XX)  Variables  Referenced!  IHOUR,IDAY,IHEEK,UPTTIM,XLOGON, 

C  XLOGOF , ISUM , INTER , I TOTAL 

C  Common  Blocks/Variables  Used!  DIMEN/LOGFLG 
C  LOGPRM/LOGCNT 

C  Common  Blocks/Variables  Changed!  DIMEN/LOGFLG 
C  LOGPRM/LOGCNT 

C  Modules  Called!  CLEAR,FIGUTL,SUMRY 
C  Cal  I ing  Modules!  CLOCK 
C  Scheduled  byi  none 
C 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


SUBROUTINE  HRPROC 


U 


& 


I 


c 

CXXXX  COMON  BLOCKS 

COMMQN/SCGM 1/  A< 100) ,DD< 100> ,DDL( 100) , DTNOW , 1 1 ,MFA ,MSTOP ,NCLNR , 

+  NCRDR ,NPRNT ,NvRUN ,NMSET , NT APE , SSI  100)  ,SSL(  100)  ,TNEXT ,TNOW,XX(  100) 
LOGICAL  LOGFLG 

COFMON/DIMEN/  NUMLOC  ,NUMCPU  ,NLhCLS  ,NUMSI  Z  .NUMPRT , NUMGAT ,  LOGFLG 
COHMON/LOGPRH/  LOGON (25) ,L0GCNT<25> 

EQUIVALENCE  <IHOUR,XX(l)> ,<IDAY,XX<2)> ,<IWEEK,XX<3>> , 

+  <UPTTIM,XX<5)>  . (XLOGON,XX(7) ) , <XL0G0F,XX(8> ) ,<ISUM,XX< 17))  , 

♦  < INTER ,XX< 19) ) ,<ITOTAL,XXC20)) 

C 

CXXXX  INCREMENT  UPDATE  TIf-E  AND  STATISTICS  INTERVAL 
UPTTIM=UPTTIM+3400. 

ITOTAL-ITOTAL+ 1 


C 

CXXXX 


THEN 


CHECK  FOR  LOG  ON/OFF 
IF  (TNGW  .GT.  XLOGOR 
LOGFLG* . FALSE . 

ELSE 

IF  (TNOW  .GT.  XLOGGN) 
END  IF 


LOGFLG-. TRUE. 


C 

CXXXX 


IF 

IF 


100 


INTERVAL  REACHED  -  PRINT  STATS  AND  CLEAR 
(ITOTAL  .EQ.  INTER)  THEN 
ITOTAL-0 

IF  ( ISUM  .EQ.  1)  THEN 
CALL  SUMRY 

WRITE(NPRNT,510)  (LOBCNTU),  I»l,25> 

DO  100  1=1,25 

LOGCNT  < I)»0 
CONTINUE 

WRITE(NPRNT ,500)  WEEK, I DAY, I HOUR- 1 
CALL  FIGUTL 
ENDIF 

CALL  CLEAR 
ENDIF 
RETURN 

FORMAT ( 7  ' , 'WEEK  NUMBER:  ',12,'  DAY:  ',12,'  HOUR:  ',13) 

FORMAT < , 121 10,/, IX, 121 10) 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

c 

Nut:  INTKND 
Module  Number:  1.E.2 

Function:  Handles  interactive  sessions  by  routing  jobs  to  CPU 
and  scheduling  think  times. 

Attributes  Referenced:  IMACH,ICLASS, INTBAT.I JOBS,IORG,AMEAN 
Global  (XX)  Variables  Referenced:  none 
Common  Blocks/Variables  Used:  CPSTAT/ITRMAC 
DIMEN/LOGFLO 
EVTCOO/INTHEV 

Common  Blocks/Variables  Changed:  none 
Modules  Called:  CPUARV,L06,SCHDL,SES0VR,SETINT 
Calling  Modules:  EVENT, CPUOPT 


500 

510 
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C  Scheduled  bys  I NTHND, RTPRT .SETCPU, NETWORK- INTERACTIVE  ARRIVALS  X 
C  31 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

c 

SUBROUTINE  INTHND 
PARAMETER  (MAXCPU=«S) 

C 

CXXXX  COMMON  BLOCKS 

COrtiON/SCGMl/  A<  100)  ,DD(100>  ,DDL(  100)  ,DTNCW,II  ,MFA,MSTOP,NCLNR, 

+  NCRDR ,NPRNT,NNRUN,NNSET ,NTAPE,SS( 100) ,SSLC 100) ,TNEXT ,TNOW,XX( 100) 
LOGICAL  LOGFLG 

COmON/CPS"AT/  ITRMOL ,  I TRhWP ,  I TRMAC ,  I  EX  JOB , IMEM , I CPU ,  INOUT ,  IMPL , 

+  CNJCPU  <  MAXCPU) 

COMMON/D  I  MEN/  NUMLOC ,  NLMCPU ,  NUMCLS  ,NUMS  1 2 ,  NUMPRT ,  NUMGAT ,  LOGFLG 
COMMGN/EVT COD/  I CLKEV ,  INTHEV ,  IARVEV ,  I PEREV ,  I CPDEV ,LATEVT ,  I RESEV , 

♦  ISTCEV 

EQUIVALENCE  (IW3CH,A(3)) ,  ( ICLASS,A(4) ) , ( INTBAT, A( 9) ) , 

♦  (I JOBS, A ( 10) ) , ( IORG,A( 12)) ,  <*¥IEAN,A(  13)  > 

C 

CXXXX  IF  JOB  JUST  FINISHED  CPU  OR  PRINTER  IN  WAIT  MODE  THEN  SCHEDULE 
CXXXX  THINK  TIME 
C 

IF  (INTBAT  .EQ.  1)  THEN 
INDEX* IMACHX 10-10 

SS( INDEX* I TRMAC) =SS< INDEX* ITRMAC) *  1 . 

IF  (I JOBS  .GT.  0)  THEN 
INTBAT*0 

CALL  SCHDL<  INTHEV  ,EXPGN(AMEAN,  1)  ,A) 

ELSE 

CALL  SESOVR 

END  IF 
ELSE 

C  XXXX  START  ANOTHER  JOB  XXXX 

I JOBS* I JOBS- 1 
ICLASS-IORG 
CALL  SET  I  NT 
CALL  CPUARV 

C  XXXX  IF  BATCH  MODE  AND  JOBS  LEFT  THEN  SCHEDULE  THINK  TIME  XXXX 

IF  (INTBAT  .EQ.  0)  THEN 
IF  (I JOBS  .GT.  0)  THEN 

CALL  SCHDLC INTHEV,EXPON(AMEAN, 1) ,A) 

ELSE 

C  XXXX  SESSION  OVER  XXXX 

CALL  SESOVR 
END  IF 
END  IF 
END  IF 

IF  (LOGFLG)  CALL  LOG( 17,-1) 

RETURN 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


C  X 
C  Nun#  i  INTLC  X 
C  Module  Number i  1.1  X 
C  Function i  Initializes  all  global  variables^  schedules  first  X 


C  arrivals  all  locations;  and  intial izes  arrival  rates  X 
C  and  -frequency  distributions  for  all  locations.  X 
C  Attributes  Referenced!  ILOCAT,IhWCH,ICLASS,ISIZE,ASECCP,APRNT,  X 
C  INTBAT , ALOC JP , I DIAL , I ORG , AHEAN , AHEM  X 
C  Global  (XX)  Variables  Referenced!  IHOUR,IDAY,IWEEK,IWPCLS,UPTTIM,X 
C  ISTOP,XLOGON,XLOGOF,ISUM, INTER, ITOTAL  X 
C  Common  Blocks/Variables  Used:  DIMEN/NUMCPU,NUMCLS,NIJMSIZ ,NUMLOC  X 
C  EVTCOD/ICLKEV,IARVEV,IPEREV  X 
C  IIWALS/ARRATE  X 
C  UNITS/ISTUD, IBTCH, I CONST  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  ARVT I M , CALSCH , LOGERR , PRTCOt- , RDERR , ROPARM , SCHDL ,  X 
C  UPDARV , UPDFRQ  X 
C  Calling  Modules:  SLAM  X 
C  Scheduled  by:  none  X 
C  X 


CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

C 

SUBROUTINE  INTLC 

PARAMETER  (MAXLOO  18  ,MAXCPl>»4  .IViXCLS**  ,MAXSIZ«<5) 

C 

CXXXX  COMMON  BLOCKS 

COMMON/SCQM 1/  A(  188)  ,DO<  188)  ,0DL(  188)  ,DTN0W, 1 1  ,MFA,MSTOP,NCLNR, 

♦  NCRDR ,NPRNT ,M«UN ,NNSET ,NTAPE , SS(  188)  ,SSL<  188)  ,TNEXT,TNOW,XX(  188) 
LOGICAL  LOGFLG 

COMMON/D  I  MEN/  NUMLOC  .NUMCPU  .NUMCLS  ,NUMS  I Z  ,NUMPRT  ,NUMGAT ,  LOGFLG 
COMMON/EVTCOO/  I CLKEV ,  INTHEV ,  I ARVEV ,  I PEREV ,  I CPDEV ,  LATEVT ,  I RESEV , 

♦  ISTCEV 

CCmM/UMALS/  ARRATE (MAXLOC , 24)  ,DIALUP(MAXCPU,24  , FRTABL (MAXLOC , 

♦  MAXCPU,MAXCLS,MAXSIZ) 

COMMON/UNITS/  I FACT, I STUD, I A DhN, I OT HR, IBTCH, I CONST 

EQUIVALENCE  ( IL0CAT,A<2)  )  ,  <  ItWCH,A<3)  )  ,  ( ICLASS,A(4)  > , < ISIZE,A(9> ) , 

♦  <ASECCP,AL0CJP,A<7>) , (APRNT ,A(8)) ,<INTBA  ,A<?)), 

♦  < IDIAL ,A( 1 1) ) , < IORG , A( 12) ) , (AHEAN ,A< 13) > , < AMEM ,A< 14) ) 

EQUIVALENCE  <  IHOUR,XX<  D) ,<I0AY,XX<2)> , ( IWEEK,XX(3) ) , 

♦  <IWPCLS,XX<4))  ,  <UPTTIM,XX(S)>  ,  (IST0P,XX<6)>  , (XLOGON,XX(7))  , 

♦  <XL0G0F,XX(8>)  ,(ISUM,XX( 17)) ,( INTER, XX< 1?) ) ,<ITOTAL,XX< 28)) 

* 

*«* 

CXXXX  INITIALIZE  XX  AND  SS  ARRAY  TO  8.8 
DO  29  1-1,188 

XX(I)-8.8 
SS( I)-8.8 
29  CONTINUE 
C 

CXXXX  8ET  DEFAULTS  XX  PARAMETERS 
I HOUR- 1 
IDAY-1 
I TOTAL-8 
IHEEK-1 
UPTT  1^3488.1 
1ST OP-11 
XLOGON-1.8 
XL060F-1.8 
ISlfKl 
INTER-6 


CXXXX  READ  IN  ALL  THE  PARAMETERS 
CALL  RDPARM 
CALL  PRTCON 
C 

CXXXX  INIT  ARRIVAL  AND  FRE.UENCY  TABLES 
DO  225  1= I STUD, I BT CH 

READ(I)  JJ,LL,MM 

IF  ((JJ.NE.NUMCPU+1) .OR.(LL.NE.NUMCLS) .OR.(rt1.NE.NUMSIZ>)  THEN 
CALL  L0GERR(2) 

STOP 

ENDIF 

225  CONTINUE 

DO  275  I-1,II>EEK 
CALL  UPDFRO 
IF  (I  .NE.  INEEK)  THEN 
DO  256  J= 1 , 7 
CALL  UPDARV 
250  CONTINUE 

ELSE 

CALL  UPDARU 
ENDIF 

275  CONTINUE 
C 

CXXXX  SET  TIME  AND  SCHEDULE  FIRST  CLOCK  UPDATE 
STIME-REAL(IHEEK-l) 

IF  (ST I ME  .GT.  0.0)  TNOM-STIMEX84400 .X7. 

CALL  SCHDL ( I CLKEV , 3400 .  ,A) 

C 

CXXXX  SCHEDULE  FIRST  ARRIVALS  AT  ALL  LOCATIONS 
DO  300  1=1 ,NUMLOC 

ILOCAT-I 

IF  (ARRATE(I,1)  .NE.  0.0)  THEN 
I^WCH=8 

XTIME-ARVTTM(ARRATE(I , D) 

ELSE 

IMACH-1 
XT I ME= 340 6.1 
ENDIF 

CALL  SCHDL(IARVEV,XTIME,A) 

300  CONTINUE 
C 

CXXXX  SCHEDULE  COMPUTERS  AND  BATCH  LOCATIONS  UP/DOM 
CALL  CALSCH 
C 

CXXXX  SCHEDULE  FIRST  PERIODIC  ARRIVAL 

400  READ (I CONST, ERR- 456)  XTIME, ILOCAT, IMACH, 1 CLASS, I SIZE 
IF  (XTIME  .LT.  TNON)  GC  TO  400 
INT  BAT-1 
IDIAL-0 
I OR O-I CLASS 
ALOCJP-REAL( ILOCAT) 

CALL  SCHDLC IPEREV,XTIME,A) 

RETURN 

450  GALL  RDERR(ICQNST) 


END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


C  X 
C  Nam* i  LATARV  X 
C  Module  Number:  1.E.18  X 
C  Function:  Enters  the  rescheduled  arrivals  into  the  network.  X 
C  Attributes  Referenced:  ATIME,AMAIT  X 
C  Global  (XX)  Variables  Referenced:  none  X 
C  Common  Blocks/Variables  Used:  DIMEN/LOGFLG  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  ENTINT, LOG  X 
C  Calling  Modules:  EVENT  X 
C  Scheduled  by:  RESCHD  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  LATARV 
C 

CXXXX  COttWN  BLOCKS 

COMMON/SCOM 1/  A(  188) ,DD< 188) ,DDL( 188) ,DTNCW, I I ,MFA,MSTOP,NCLNR, 

♦  NCRDR ,NPRNT ,M«UN ,hWSET , NT APE , SS(  188)  ,SSL(  188)  ,TNEXT,TNOW,XX(  188) 
LOGICAL  LOGFLG 

COWON/DIMEN/  NUMLOC  .NUMCPU  ,NUMCLS  ,NUMSI2  ,NDMPRT  ,NUMGAT ,  LOGFLG 
EQUIVALENCE  (ATIME,A< D) ,  (AWAIT,A<4)  ) 

C 

CXXXX  ENTER  INTO  INTERACTIVE  ARRIVALS 
ATIME=TNCN 

^iT«8.e 

IF  (LOGFLG)  CALL  L0G<8,~1) 

CALL  ENTINT 

RETURN 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


C  X 
C  Name:  LOG  X 
C  Module  Number:  1.C.3  X 
C  Function:  Logs  the  subroutine  name  and  attributes.  X 
C  Attributes  Referenced:  none  directly  X 
C  Global  (XX)  Variables  Referenced:  none  X 
C  Common  Blocks/Variables  Used:  L0GPRM/L06CNT , LOGON  X 
C  Common  Blocks/Variables  Changed:  LOGPRM/LOGCNT  X 
C  Modules  Called:  none  X 
C  Calling  Modules:  almost  all,  see  code  X 
C  Scheduled  by:  none  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  L0G(K00E, INDEX) 

CHARACTER  L0GDSC(23> X18 
DIMENSION  !A( 188) 

C 

CXXXX  COTtiON  BLOCKS 

COMMON/SCOM  1/  A( 188) ,DD( 188) ,DOL( 188) ,DTNQM,II ,MFA,MSTOP,NCLNR, 

*  NCRDR ,NPRNT , WRUN ,  WSET ,NTAPE , SS<  188)  ,SSL(  188)  ,TNEXT,7N0NfXX(  188) 
COMMON/LOGPRM/  L0G0N(2S) ,L0GCNT(25) 


o  o  o  o  o  o  o 


EQUIVALENCE  (A(1),IA(1>) 

C 

DATA  LOGOSC/'ARVL-UPDAT' ,  'ARVL-SUBMT7 , 'CPUARV-HLD7 ,  'CPUARV-RUN7 

♦  7 CPUOPT  7 , 7 CPUDPT -NEW' , ' SESOVR  7 , 7 LATARV 

♦  ''LOGON  7 , 'PERIOD-GO  7 ,  'PERIOD-SCH7 ,  'RESCHD 

♦  'RTPRT  ' SET I  NT  ' ,'WAITTR-OH  ' ,'WAITTR-LU  ' 

♦  7  INTEND  7,7RESORC  ','ENTINT  7,'SETCPU 

♦  'STPINT  7,7NAITPO-OK  '  ,'WAITPO-LU  7,7 

♦  7  V 

C 

L06CNT ( KODE) =LOGCNT ( KODE) ♦  I 
IF  (LOGON (ROOD  .EQ.  1)  THEN 

MRITECNPRNT, 10)  TNOW , LOGDSC ( KODE) ,A( 1) ,(IA(I) ,  1=2,5) , 

♦  A(4> ,A(7) ,A(8) ,(IA(I> ,  1=9, 12) ,A(  13) ,A( 14) ,A( 15) 

IF  (INDEX  .SE.  8)  WRITE (NPRNT, 28)  <SS( INDEX+-I) ,  1=1,7) 

END  IF 
RETURN 

18  FORMAT! 78 7  ,E11.4, 1X,A18,EU.4,4I4,3E11.4,4I4,3E1 1 .4) 

28  FORMAT! 7  7 ,28X,4FS.8,2E12.4,F5.8) 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


C  X 
C  Nimi  LOGERR  X 
C  Module  Numbers  1.C.4  X 
C  Function*  Logs  user  errors.  X 
C  Attributes  Referenced*  none  X 
C  Globe!  (XX)  Variables  Referenced*  none  X 
C  Common  Blocks/Variables  Used*  none  X 
C  Common  Blocks/Variables  Changed*  none  X 
C  Modules  Called*  none  X 
C  Calling  Modules*  INTLC,USERF  X 
C  Scheduled  by*  none  X 
C  X 


CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

c 

SUBROUTINE  LOGERR! KOOE) 

C 

CXXXX  COMMON  BLOCKS 

COM10N/SCGM1/  A( 188) ,DD< 188) ,DDL( 188) ,DTN0M,I I ,MFA,MSTOP,NCLNR, 

♦  NCRDR f NPRNT ,NNRUN ,FNSET ,NTAPE , SS ( 188)  ,SSL<  188)  ,7NEXT,TN0H,XX(  188) 
C 

WRITE (NPRNT, 18)  KODE 
WRITE(NPRNT ,28)  (A(I),  1=1,19) 

RETURN 

18  FORMAT! 7 1XXXX  USER  ERROR  ' ,12, '  XXXX7) 

28  FORMAT!7  7 ,E11.4,4I4,3E11.4,4I4,3E11.4> 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


X 

Name*  LOGON  X 

Module  Number*  1.E.7  X 

Function*  Checks  port  availability  and  if  available  starts  X 

session  else  either  releases  terminal  or  puts  in  wait  X 

queue.  X 

Attributes  Referenced*  I MACH  X 


C  Global  (XX)  Variables  Referenced:  none  X 
C  Common  Blocks/Variables  Used:  DIMEN/LOGFLG  X 
C  ENTCOD/NRLSIN  X 
C  OFFSET/ I PORTS  X 
C  Common  Blocks/Variables  Changed:  none  < 
C  Modules  Called:  ENTER, FILEM.LOG, SET CPU.WAITPO  X 
C  Calling  Modules:  EVENT  X 
C  Scheduled  by:  NETWORK-BATCH  ARRIVALS  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  LOGON 
C 

CXXXX  COMMON  BLOCKS 

COMION/SCOMl/  A< 180) ,DD< 188) ,DDL( 188) ,DTN0W,I I ,MFA,MSTQP,Nf _NR, 

♦  NCRDR,NPRNT,fMRUN,NNSETIKTAPE,SS( 188) ,SSL( 180) ,TNEXT ,TNOW ,XX( 188) 
LOGICAL  LOGFLG 

COtfKJN/DIMEN/  NUMLOC  .NUMCPU  ,NIMCLS  ,NUMSI 2  ,NUMPRT  ,NUMGAT ,  LOGFLG 
COMMON/ENTCOO/  INTARV , I BATCH ,NRLS IN , I PRTEN 

COmON/OFFSET/  ICPUOS.IHLDOS, IRTSTR, ITRMOS,IBATST,IGATOS,IPRTOS, 

♦  I PORTS 

EQUIVALENCE  <ItttCH,A<3>) 

C 

CXXXX  MAKE  SURE  COMPUTER  STILL  UP 

IF  (XX( ICPUOS+IMACH)  .GT.  8)  THEN 
C  XXXX  IS  PORT  AVAILABLE? 

IF  <XX< IPORTS+IMACH)  .GT.  0.)  THEN 
C  XXXX  YES  -  INPUT  TO  CPU  INTERACTIVE  HANDLER  XXXX 

CALL  SET CPU 

ELSE 

C  XXXX  NO  -  HILL  THE  USER  WAIT?  XXXX 

X«+iAITPO(DUH1Y) 

IF  (X  .LT.  8.3)  THEN 

C  XXXX  WON'T  WAIT  -  RELEASE  TERMINAL  XXXX 

GALL  ENTER(NRLSIN,A) 

ELSE 

C  XXXX  WILL  WAIT  -  PUT  IN  QUEUE  XXXX 

CALL  FI LEM (I PORTS* I MACH, A) 

END  IF 
ENDIF 

ELSE 

C  XXXX  COMPUTER  WENT  DOWN  DURING  LOGON 

GALL  RESCHD 
CALL  ENTER(NRLSIN,A) 

ENDIF 

IF  (LOGFLG)  CALL  LOG(?,-l> 

RETURN 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


c  X 
C  Name:  PER I 00  X 
C  Module  Number :  1.E.4  X 
C  Function:  Enters  periodic  arrivals  into  network.  X 
C  Attributes  Referenced:  ATIME,ILOCAT,IMACH,:CLASS,ISIZE,INTBAT,  X 
C  IDI AL ,  ALOC  JP ,  I ORG  ,AMEAN  ,AMEM  X 


C  Global  (XX)  Variables  Referenced:  none  X 
C  Common  Blocks/Variables  Used:  DIMEN/LOGFLG  X 
C  ENT COD/ 1 BATCH  X 
C  EVTCOD/IPEREV  * 
C  OFFSET/ I BATST  X 
C  UN ITS/ I CONST  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  ENTER , ENT INT , LOG , RDERR , SCHDL  X 
C  Cal  1 ing  Modules:  EVENT  X 
C  Scheduled  by:  INTLC, PERIOD  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  PERIOD 
C 

CXXXX  COMMON  BLOCKS 

C0M10N/SC0M 1/  A(108) ,DD<100) ,DDL(100> , DTNOW , 1 1 ,MFA , MSTOP ,NCLNR , 

♦  NCRDR ,NPRNT ,hNRUN ,hNSET ,NTAPE , SS(  100)  ,SSL(  100)  ,TNEXT,TNOW,XX(  100) 
LOGICAL  LOGFLG 

CO>H  ON/D  I  MEN/  NUMLOC ,  NUMCPU  ,NUMCLS  ,NUMSI  2  ,NUMPRT  .NUMGAT,  LOGFLG 
COT-WON/ENTCOD/  INTARV  ,  I  BATCH  .NRLSIN ,  I PRTEN 

COmON/EVTCOD/  I CLKEV ,  INTHEV ,  IARVEV ,  I PEREV ,  I  CP  DEV ,  LATEVT ,  I RESEV , 

♦  ISTCEV 

COmON/OFFSET/  I CPUOS  f  I HLDOS ,  I RTSTR ,  ITRMOS ,  I  BATST ,  I  GATOS ,  I PRTOS , 

♦  I PORTS 

COM1  ON/ UN I TS/  I FACT , I STUD , I ADMN , I OTHR , I BTCH , I CONST 

EQUIVALENCE  (ATIME,A( 1)  >  ,  ( IL0CATtA(2) ) , ( IMACH,A(3> ) , ( ICLASS,A(4) ) , 

♦  (ISIZE,A(5)),(AL0CJP,A(7>) , < INTBAT,A(9> ) , ( IDIAL,A( 1 1) > , 

♦  (  IORG,A(  12))  ,(AMEAN,A(  13))  ,  (AMEM,A(  14)) 

C 

CXXXX  ENTER  PERIODIC  REQUIREMENT  INTO  NETWORK 
ATIME-TNOW 

IF  (LOGFLG)  CALL  LOG< 10,-1) 

IF  (ILOCAT  .GE.  I BATST)  THEN 
CALL  ENTER< IBATCH,A) 

ELSE 

CALL  ENTINT 
END  IF 
C 

CXXXX  SCHEDULE  NEXT  PERIODIC  EVENT 

READUCONST, END-100, ERR»20f‘  XTIME, ILOCAT , IMACH, ICLASS, ISI2E 
XTIME-XTIME  -  TNOW 
I  NT BAT-0 
I DIAL-0 
I OR(*  I  CLASS 
ALOCJP»REAL<  If-WCH) 

IF  (LOGFLG)  CALL  LOG( 11,-1) 

CALL  SCHDL(IPEREV,XTIME,A) 

100  RETURN 

200  CALL  RDERR (I CONST) 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

c  x 

c  Name:  PRTCON  X 


C  Module  Number:  1.1.2 


X 


C  Function!  Prints  the  variable  file  if  ISUM  =  true  it  X 
C  initialization.  X 
C  Atti  lbutes  Referenced:  none  X 
C  Global  <XX>  Variables  Referenced:  [WEEK, IWPCLS,ISTOP,STAINV  X 
C  Common  Blocks/Variables  Used:  ANYVAL/ANYDST  X 
C  CPSTAT/IMPL,CNVCPU  X 
C  DIMEN/NUHCLS  ,NUMCPU  ,NUMPRT  ,NUML0C ,NUMGAT  ,NUHS  I Z  X 
C  FACTOR/D I STRB  X 
C  I NUAL S/DIALUP  X 
C  INTPRB/BAT INT , ONE JOB , WPPROB  X 
C  OFFSET/I PORTS  X 
C  PRTPRM/PRTSPD , DUPRT , PRTTAB  X 
C  SCHEDL/SCHCPU , SCHBAT , I PRGAT , I CRGAT  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called!  none  X 
C  Cal  I ing  Modules:  INTLC  X 
C  Scheduled  by:  none  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  PRTCON 

PARAMETER  (MAXLOOH ,MAXCPU*6,MAXCLS=6,MAXSIZ=<S,MAXPRT*10) 
PARAMETER  <*WGAT»4) 

C 

CXXXX  COWON  BLOCKS 

COtfON/SCQM 1/  A< 100) , DO< 100) ,DDL< 100) , DTNOW, 1 1 ,MFA,MSTOP,NCLNR, 

♦  NCRDR,NPRNT ,hMRLN,NNSET ,NTAPE,SS(  100)  ,SSL(  100)  ,TNEXT,TNOW,XX<  100) 
COtWON/ANYVAL/  ANYDST  (MAXCLS  ,MAXCPU) 

COWON/CPSTAT/  ITRMOL,  ITRM4P,  ITRMAC, IEXJOB, IMEM,  ICPU, INOUT, IMPL, 

♦  OWCPU(MAXCPU) 

LOGICAL  LOGFLG 

COrWON/DIMEN/  NLMLX,NUMCPU,NUMCLS,NUMSIZ,NUMPRT,NUHGAT, LOGFLG 
COMMON/FACTOR/  DISTRBCMAXCLS.MAXSIZ  ,<S,2> 

COTWON/IfWALS/  ARRATE(MAXL0C,24) ,DIALUP(MAXCPU,24) ,FRTABL(MAXLOC , 

♦  MAXCPU, MAXCLS, MAXSIZ) 

COtiON/INTPRB/  ONE JOB , WPPROB (MAXCLS) , BAT I NT (MAX CPU, MAXCLS) 
COMMON/OFFSET/  I CPUOS , I HLDOS , I RTSTR , I TRMOS , I BATST , I GATOS , I PRTOS , 

♦  I PORTS 

COttlON/PRTPRM/  PRTSPD(MAXPRT) , DUPRT, PRTTAB<MAXCPU,MAXLOC,MAXPRT) , 

♦  PCPRTM , PCPRTS 

CQMMON/SCHEDL/  SCHBAT (MAXGAT ,7,2) ,SCHCPU(tWXCPU,7,2> , 

♦  I PRGAT (MAX GAT, MAX PRT) , I CR GAT <  MAXCPU , MAX GAT) 

EQUIVALENCE  <IWEEK,XX(3>) ,<IWPCLS,XX<4)> , < IST0P,XX(4)) , 

♦  <  I  SUM, XX  ( 17))  ,(STAIW,XX(  1?)) 

C 

CXXXX  PRINT  ALL  INPUT  VALUES 
HRITE(NPRNT,200) 

00  10  I*1,NUMCLS 

NRITEINPRNT ,210)  I ,<ANYDST(I ,J) ,  J»1,NUMCPU) 

10  CONTINUE 

WRITE (NPRNT, 300) 

DO  19  1*1 ,NUMCPU 

NRITE<NPRNT,310)  I ,<BATINT(I ,J) ,  J*1,NUMCLS) 

19  CONTINUE 

WRITEINPRNT  ,400) 


1-23 


00  20  1=1 ,NUMCPU 

WRITE(NPRNT,410)  I ,<DIALUP(I ,J) ,  J=l,24) 

20  CONTINUE 

WRITE(NPRNT,500)  ONEJOB, (WPPROB( I) ,  I=1,NUMCLS) 

WRITECNPRNT ,600)  (PRTSPDCl) ,  I=1,NUMPRT> 

WRITE (NPRNT, 450)  DUPRT 
DO  25  1=1 ,NUMCPU 

DO  23  J= 1 ,NUMLOC 

WRITE<NPRNT ,440)  I ,  J,  (PRTTABd  ,  J,K)  ,  K=1,NUMPRT) 

23  CONTINUE 
25  CONTINUE 
C 

CXXXX  PRINT  INITIAL  CPU  STATES 
WRITE(NPRNT  ,700) 

DO  27  1=1 ,NUMCPU 

WRITE(NPRNT ,750)  I ,XX< I+ICPUOS) ,SS!IX 10-10+ IMPL) , 

♦  XX<I+IPORTS) ,CNUCPU(I) 

27  CONTINUE 

HRITE(NPRNT,800) 

DO  40  1=1  ,N(JMCLS 

DO  30  J»1,NUMSIZ 

WRITE<NPRNT ,810)  I ,J,<<DISTRB(I ,J,K,L) ,  L=l,2),  K=l,4) 

30  CONTINUE 
40  CONTINUE 
C 

CXXXX  PRINT  COMPUTER  SCHEDULES 
WRITE (NPRNT, 850) 

DO  50  1=1  ,NUMCPU 

WRITE!NPRNT ,870)  I , ((SCHCPUd  ,J,K)  ,  J=l,7>,  K=l,2) 

50  CONTINUE 
C 

CXXXX  PRINT  BATCH (GATES)  SCHEDULES 
WRITE (NPRNT, 840) 

DO  40  1=1 jNUMQAT 

WRITE<NPRNT,878)  I , < (SCHBATd  , J,K)  ,  J»l,7),  K=l,2) 

40  CONTINUE 
C 

CXXXX  PRINT  PRINTERS  CLOSING  WITH  GATES 
WRITE(NPRNT,900) 

DO  70  1=1  ,NUMGAT 

WRITE(NPRNT ,910)  I , (IPRGATd  , J)  ,  J=1,NUMPRT) 

70  CONTINUE 
C 

CXXXX  PRINT  CARD  READERS  CLOSING  WITH  COMPUTER  DOM 
WRITE (NPRNT, 920) 

DO  88  1=1 ,NUMCPU 

WRITE<NPRNT ,910)  I , (ICRGATd  ,J)  ,  J»1,NUMGAT) 

80  CONTINUE 
RETURN 
C 

CXXXX  FORMAT  STATEMENTS 

200  FORMAT! '0','XXXXXXX  "ANY1  COMPUTER  PROBABILITIES  XXXXXXX' ,/,4X, 

♦  'CLASS  PROBABILITIES/COMPUTER') 

210  FORMAT!'  ' ,2X,I5,4F10.4) 

300  FORMAT! '0','XXXXXXX  •BATCH*  MODE  PROBABILITIES  WHILE  INTERACTIVE' 


♦  "  XXXXXXX"  ,/,3X," COMPUTER  PROBABILITY") 

318  FORWVT<"  "  , I6,4X,6F10 .4) 

488  FORMAT ( "0" ,  "XXXXXXX  DIALUP  PROBABILITIES  XXXXXXX" ,/, 18X, 

♦  "COMPUTER  PROB/HOUR") 

418  FORMAT < "  " , 18X, 14, 6X, 12F7.4,/,21X, 12F7.4) 

580  FORMAT ( "0" , "XXXXXXX  WORD  PROCESSING  PROBABILITIES  XXXXXXX" ,/, 10X, 
+  "WHEN  THERE  IS  ONE  JOB  -  ' ,F5.3,/, 10X, "FOR  ALL  CLASSES 

♦  6F6.3) 

680  FORMAT<"0" , "XXXXXXX  PRINTER  SPEEDS  XXXXXXX" ,/ , 18X, 18F10.0) 

650  FORMAT ( "  XXXXXXX  PRINTER  PROBABILITES  XXXXXXX',/,'  DIALUP", 

♦  F8.4,/, "  COMPUTER  LOCATION  PROB/PR INTER") 

668  FORMAT < "  " ,14,1 10, 8X, 10F6.3) 

700  FORMAT<"0" , 'XXXXXXX  INITIAL  CPU  STATUS  XXXXXXX' ,/, 10X, 

♦  'COMPUTER  UP/DOWN  MPL  #  PORTS  CNVCPU") 

750  FORMAT<"  ' ,9X,I5,3F10.0,F10.4) 

880  FORMAT(" 1" ,  XXXXXXX  DISTRIBUTION  FACTOR  TABLES  XXXXXXX" ,/,/, 15X, 

♦  "NEXT  JOB  SUBMITTAL  K  LINES  PRINT" ,9X, "CPU  SECONDS', 7X, 

+  "NO  JOBS  MEMORY  SIZE' ,9X, " I/O  SECONDS' ,/, IX, "CLASS  SIZE", 

♦  8X, "MEAN  STD" ,9X,  MEAN  STD" ,9X, "MEAN" ,8X, "STD" ,6X, 

♦  'MEAN  STD", 3X, 'MEAN  STD" ,7X, "MEAN" ,8X,"STD") 

810  FORMAT ( '  " ,I3,I6,5X,2F8.0,3X,2F8.0,2X,2F11 .4,2X,2F5.0,2X,2F5.0, 

♦  2X,2F11.4) 

850  FORMAT < " 1XXXXXXX  COMPUTER  SCHEDULES  XXXXXXX" ,/,2X, "COMPID" , 10X, 

♦  "UP/DOkN") 

860  FORMAT<"0XXXXXXX  BATCH  (GATE)  SCHEDULES  XXXXXXX",/,"  GATE",10X, 

♦  "OPEN/CLOSE") 

878  FORMAT < '  " ,I5,5X,7F8.0,/, 11X,7F8.0) 

980  FORMAT<"0", "XXXXXXX  PRINTERS  CLOSING  WITH  GATES  XXXXXX" ,/, 18X, 

♦  "  GATE ",20X," PRINTERS") 

910  FORMAT < "  " , 10X, 13, 10X, 1015) 

920  FORMAT("0" , "XXXXXXX  CARD  READERS  DOWN  WITH  COMPUTERS  XXXXXX", 

♦  /, 10X," COMPUTER", 10X," CARD  READERS') 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


C  X 
C  Name:  RDERR  X 
C  Module  Number:  1.C.5  X 
C  Function:  Prints  the  unit  number  when  a  read  error  occurs.  X 
C  Attributes  Referenced:  none  X 
C  Global  (XX)  Variables  Referenced:  none  X 
C  Common  Blocks/Variables  Used:  none  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  none  X 
C  Calling  Modules:  INTLC, PERIOD, UPDARV.UPDFRQ  X 
C  Scheduled  by:  none  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  RDERR< I  UNIT) 

c 

cxxxx  com  ON  BLOCKS 

C0WK3N/SC0M1/  A<  188)  ,DO(  100)  ,DDL(  100)  ,DTN0W,I  I  ,MFA ,MSTOP ,NCLNR , 

♦  NCRDR,NPRNT,WRUN,hNSET,NTAPE,SS(100)  ,SSL(100)  ,TNEXT ,TNON,XX(  lit) 
C 

WRITE(NPRNT, 10)  IUNIT 


10  FORMAT < '  '/UNIT  ',12/  READ  ERROR') 

STOP 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


C  X 
C  Name:  RDPARM  X 
C  Mode  1 e  Number :  1 . 1 . 1  X 
C  Function:  Reads  the  input  variable  -file  at  initialization.  X 
C  Attributes  Referenced:  none  X 
C  Global  (XX)  Variables  Referenced:  IWEEK,IWPCLS,IST0P,XL060N,  X 
C  XLOGOF , I SUM , INTER  X 
C  Common  B1 ocks/Var iabl es  Used:  ANYVAL/ANYDST  X 
C  CPSTAT/IMPL  ,CWCPU  X 
C  DIMEN/NUMLOC,NUMCPU,NUMCLS,NUMSIZ ,NUMPRT,NUMGAT ,LOGFLG  X 
C  FACTOR/D I STRB  X 
C  I NUAL S/DIALUP  X 
C  INTPRB/ONE JOB, WPPROB.BAT I NT  X 
C  LOGPRM/LOGON  X 
C  OFFSET/IBATST , ICPUOS , I PORTS  X 
C  PRTPRM/PRTSPD , DUPRT , PRTTAB , PCPRTM , PCPRTS  X 
C  SCHEDL/SCHBAT , SCHCPU , I PRGAT , I CRGAT  X 
C  UNITS/ I FACT  X 
C  VARCOM/CPULTM , CPULTS ,TRMLTM , TRMLTS , OPRM“1 , OPRSTD ,XLOGMN ,XL0GST  X 
C  WAITCM/TRtMAT.WAITMN ,WAITST ,PORTWT  X 
C  Common  Blocks/Variables  Changed:  ANYVAL/ANYDST  X 
C  CPSTAT/IMPL.OWCPU  X 
C  D I MEN/NUMLOC  ,NUMCPU  ,NUMCLS  ,NUMSI  Z  ,NLMPRT ,  NUMGAT ,  LOGFLG  X 
C  FACTOR/DI STRB  X 
C  I  hWALF ^DIALUP  X 
C  INTPRB/UNEJOB , WPPROB , BATINT  X 
C  LOGPRM/LOGON  X 
C  OFFSET/IBATST  X 
C  PRTPRM/PRTSPD, DUPRT, PRTTAB, PCPRTM, PCPRTS  X 
C  SCHEDL/SCHBAT , SCHCPU , I PRGAT , I CRGAT  X 
C  VARCGM/CPULTM ,  CPULTS  ,TRMLTM ,  TRMLTS ,  OPRhti ,  OPRSTD  ,XLOGH'l  ,XL0GST  X 
C  WAITCM/TRhMAT  ,WAIThN,WAITST,PORTWT  X 
C  Modules  Called:  none  X 
C  Cal  1 ing  Modules:  INTLC  X 
C  Scheduled  by:  none  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  RDPARM 

PARAMETER  (tttXLOO  10  ,MAXCPU»6  ,MAXCLS=6  ,lttXSI  2=6  ,MAXPRT*  10) 
PARAMETER  <MAXGAT=4,MA)WAT*3) 

LOGICAL  LOGNL,VARNL 
C 

CXXXX  C0M10N  BLOCKS 

C0MM0N/SC0M 1/  A( 100) , DOC  100) ,DDL(100) ,DTN0H, 1 1 ,MFA,MSTOP,NCLNR, 

♦  NCRDR ,NPRNT ,NNRUN ,NNSET ,NTAPE , SS<  100)  ,SSL(  100)  ,TNEXT,7N0W,XX<  100) 
COhMON/ANYVAL/  ANYDST ( MAXCLS , MAXCPU) 

C0M10N/CPSTAT/  ITRMOL , I TRrtXP , ITRMAC , I EX JOB , IMEM , I CPU , INOUT , IMPL , 

♦  CNVCPU(MAXCPU) 

LOGICAL  LOGFLG 

COWON/DIMEN/  NUMLOC  ,NUMCPU  ,NUMCLS  ,NUMSI Z  ,NUMPRT , NUMGAT , LOGFLG 


COMMON/ FACTOR/  DISTRB(MAXCLS,MAXSIZ , 6,2) 

COMMON/ INJALS/  ARRATE(MAXLOC , 24) ,DIALUP(KWXCPU,24> , FRTABL (MAXLQC , 

♦  MAXCPU,MAXCLS,MAXSIZ) 

COMION/ I NTPRB/  ONEJOB,WPPROB(MAXCLS> ,BATINT(MAXCPU .HAXCLS) 
COTtlON/LOGPRM/  LOGON (25) ,L0GCNT(25> 

COMION/OFFSET/  I CPUOS , IHLDOS  IRTSTR, ITRMOS , I BATST , I GATOS , I PRTOS , 

♦  I PORTS 

COMION/PRTPRM/  PRTSPD(MAXPRT) , DUPRT , PRTTAB(MAXCPU,MAXLOC ,MAXPRT) , 

♦  PCPRTM ,PCPRTS 

COMMON/SCHEDL/  SCHBAT ( MAXGAT ,7,2)  ,SCHCPU(^AXCPU,7,2>  , 

+  IPRGAT(MAXGAT,MAXPRT) , I CRGAT (MAX CPU ,  MAX  GAT) 

COMION/UN ITS/  I FACT , I STUD , IADMN , I OTHR , I BTCH , I CONST 
COMION/VARCOM/  CPULTM ,  CPULTS ,  TRMLTM ,  TRMLTS ,  OPRMN ,  OPRSTD ,  XLOGTt4 , 

+  XLOGST 

CQMION/WAITCM/  TRMWAT (MAXLOC ,MAXWAT)  ,WAITW,UAITST  ,PORTWT(MAXWAT> 
EQUIVALENCE  (IWEEK,XX(3)) , ( IWPCLS,XX(4) ) ,( IST0P,XX(6> ) , 

+  (XL0G0N,XX(7) ) , (XL0G0F,XX(8) ) , (ISUM,XX( 17)) , (INTER, XX< 1?) ) 

C 

CXXXX  NAMELIST  STATEMENTS 

NAMEL I ST/CARDGAT/  I CRGAT 

NAMELI ST/LD I MEN/  NUMLOC ,NUMCPU .NUMCLS ,NUMSI Z .NUMPRT .NUMGAT , 

♦  I BATST , IMPCLS 

NAMELIST/CONFIG/  I SUM , INTER , I WEEK , I STOP ,XLOGON .XLOGOF , 

♦  LOGNL,VARNL 

NAMEL I ST/PRTGAT/  IPRGAT 
NAMELIST/LOGFLAG/  LOGON 

NAMEL  I  ST/VARTIME/  CPULTM ,  CPULTS  .TRMLTM , TRMLTS ,  OPRM'I ,  OPRSTD , 

♦  XLOGW , XLOGST .WAITMN.WAITST , PCPRTM , PCPRTS 
C 

CXXXX  READ  IN  CARD  PARAMETERS 
READ (NCRDR, CONFIG) 

WRITE(NPRNT, 100) 

WRITE(NPRNT, CONFIG) 

IF  (LOGNL)  THEN 

READ(NCRDR  .LOGFLAG) 

WR1TE(NPRNT ,  L  OGFLAG) 

ENDIF 

IF  (VARNL)  THEN 

READ(NCRDR, WARTIME) 

NRITE(NPRNT , VARTIME) 

ENDIF 

C 

REAO(IFACT,LDIMEN) 

LOGFLG-. FALSE. 

IF  (XLOGON  .LE.  8.1)  LOGFLG- .TRUE. 

C 

CXXXX  GET  'ANY'  DISTRIBUTIONS 
READ(IFACT,X) 

DO  18  Is! |NUMCLS 

READ (I FACT ,28 8)  (ANYDST ( I ,  J) ,  J=1,NUMCPU) 

18  CONTINUE 
C 

CXXXX  GET  'BATCH'  PROBABILITIES  FOR  INTERACTIVE 
READ(IFACT,X) 

DO  15  I-],NUMCPU 


READ (I FACT, 200)  (BATINT ( I , J) ,  J=1 .NUMCLS) 

15  CONTINUE 
C 

CXXXX  GET  DIALUP  PROBABILITIES 
READ (I FACT, X) 

DO  20  1=1 , NUN CPU 

READ (I FACT, 200)  (DIALUP( I , J) ,  J=l,24) 

20  CONTINUE 
C 

CXXXX  GET  DISTRIBUTION  TABLE 
READ< I FACT, X) 

DO  40  1=1  ,N(JMCLS 

DO  30  J=1 ,NUMSIZ 

READ (I FACT, 300)  < (DISTRB( I , J,K,L) ,  L=l,2) ,  K=l,5) 

READ(IFACT,310)  (DISTRB( I , J,4,L> ,  L=l,2) 

30  CONTINUE 
40  CONTINUE 
C 

CXXXX  GET  WORD  PROCESSING  PROSAILITIES 
READ< IFACT, X) 

READ(IFACT,200)  ONE JOB 

READ< IFACT ,200)  (WPPROB(I),  I»1,NUMCLS> 

C 

CXXXX  GET  PRINTER  SPEEDS 
READ< IFACT, X) 

DO  40  1=1 ,NUMPRT 

READ< IFACT, 400)  PRTSPD<I) 

40  CONTINUE 
C 

CXXXX  GET  PRINTER  PROBABILTIES 
READ< IFACT, X) 

READ (IFACT, 200)  OUPRT 
DO  45  1=1 ,NLHCPU 

DO  43  J= 1 ,NUMLOC 

READ( I FACT , 200)  (PRTTABI I , J,K) ,  K=1,NUMPRT) 

43  CONTINUE 
45  CONTINUE 
C 

CXXXX  GET  CPU  UP/DOWN,  MULT  I  PROGRAM  LEVELS,  «  PORTS,  CWCPU 
READ< IFACT, X) 

DO  70  1=  1  ,NUhCPU 

READ (I FACT, 400)  XX(I*ICPUOS) ,SSC IX 10-10* IMPL) ,XX( I+IPORTS) , 
♦  CWCPU(I) 

70  CONTINUE 
C 

CXXXX  READ  IN  COMPUTER  SCHEDULES 
READ( IFACT, X) 

80  READ< IFACT, 500)  ICPU 
IF  (ICPU  .GT.  0)  THEN 

READ( IFACT ,X)  (<SCHCPU(ICPU,J,K) ,  J=l,7),  K=l,2) 

GO  TO  80 
ENDIF 
C 

CXXXX  READ  IN  BATCH  (GATE)  SCHEDULES 
READ< IFACT, X) 


90  READ (I FACT, 500)  I BAT 
IF  (IBAT  .GT.  0)  THEN 

READ( IFACT,X)  ( <  SCHBAT  <  I  BAT ,  J ,  K)  ,  J=l,7),  K=l,2) 

GO  TO  90 
END  IF 

C 

CXXXX  READ  IN  WAIT  PROBABILITIES 
READ(IFACT,X) 

DO  95  1=1 , I BAT ST- 1 

REAO(  I  FACT  ,200)  <TRMNAT(I,J),  J=1,MAXW*T) 

95  CONTINUE 

C 

CXXXX  READ  PRINTERS  AND  CARD  READERS  ASSOCIATION 
READ< IFACT,X) 

READ < I FACT, PRT GAT) 

READ<IFACT,X) 

READ  < I FACT , CARDGAT) 

RETURN 

C 

CXXXX  FORMAT  STATEMENTS 

100  FORMAT< ' 1' ,50X, 'XXXXXX  INPUT  PARAMETERS  XXXXXX') 

200  F0RMAT(8X, 12F6.4) 

300  FORMAT<8X,4F5.0,2F10 .4,4F5.0) 

310  FORMAT(8X,2F10.4) 

400  FORMAT <8X,F 3.0) 

500  FORMAT  <  8X , 1 8) 

600  FORMAT <8X,3F8.0,F8. 4) 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


C  X 
C  Nam*s  RESCHD  X 
C  Modul*  Numb*ri  l.C.2.1  X 
C  Function!  Reschedules  an  arrival  when  computer  not  available.  X 
C  Attributes  Referenced:  none  X 
C  Global  (XX)  Variables  Referenced:  none  X 
C  Common  Blocks/Variables  Used:  DIMEN/LOGFLG  X 
C  EVTCOD/LATEVT  X 
C  UARCOM/CPULTM , CPULTS  X 
C  Common  Blocks/Variables  Changed!  none  X 
C  Modules  Called!  L0G,SCHDL  X 
C  Calling  Modules:  ENT INT  X 
C  Scheduled  by!  non*  X 
C  X 


exxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

C 

SUBROUTINE  RESCHD 

c 

CXXXX  COmON  BLOCKS 

C0M4QN/SC0M 1/  A< 100) ,DD(100) ,DDL(180) , DTNOW , 1 1 ,MFA ,MSTOP ,NCLNR , 

♦  NCRDR ,NPRNT ,  hNRUN ,NNSET , NT APE , SS<  100)  ,SSL(  100)  ,TNEXT ,TN0W,XX(  100) 
LOGICAL  LOGFLG 

COhfiON/D  I  MEN/  NUMLOC  ,NLMCPU  ,NUMCLS  ,NUMS  I Z ,  NUMPRT ,  NUMGAT ,  LOGFLG 
CGHION/EVTCOD/  ICLKEV,  INTHEV,IARVEV,  IPEREV,ICPDEV,LATEVT,IRES£V, 

♦  ISTCEV 

COMMON/VARCOM/  CPULTM, CPULTS, TRMLTM, TRMLTS  ,OPRfW, OPR  STD, XL  OGW, 


98  READ < I FACT, 500)  I BAT 
IF  (IBAT  .GT.  0)  THEN 

READ! I FACT, X)  ! !SCHBAT(IBAT, J,K)  ,  J=l,7),  K=l,2> 

GO  TO  90 
ENDIF 

C 

CXXXX  READ  IN  WAIT  PROBABILITIES 
READ < I FACT, X) 

DO  95  1=1,1 BAT ST - 1 

READ! I FACT, 200)  <TRMNAT<I , J) ,  J=1,MAXW¥T> 

95  CONTINUE 

C 

CXXXX  READ  PRINTERS  AND  CARD  READERS  ASSOCIATION 
READ! IFACT,X) 

READ<IFACT,PRTGAT) 

READ(IFACT,X) 

READ! I FACT , CARDGAT) 

RETURN 

C 

CXXXX  FORMAT  STATEMENTS 

100  FORMAT! ' 1' ,50X, 'XXXXXX  INPUT  PARAMETERS  XXXXXX') 

200  FORMAT <8X, 12F6.4) 

300  FORMAT!8X,4F5.0,2F10.4,4F5.0) 

310  FORMAT<8X,2F10.4) 

400  FORMAT! 8X,F3.0> 

500  FORMAT ! 8X , I 8) 

600  FORMAT! 8X,3F8.0 ,F8. 4) 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


C  X 
C  Name:  RESCHD  X 
C  Module  Number i  l.C.2.1  X 
C  Function:  Reschedules  an  arrival  when  computer  not  available.  X 
C  Attributes  Referenced:  none  X 
C  Global  <XX)  Variables  Referenced:  none  X 
C  Common  B1 ocks/Variabl es  Used:  DIMEN/LOGFLG  X 
C  EVT  COO/LATEVT  X 
C  VARCOM/CPULTM , CPULTS  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  LOG,SCHDL  X 
C  Calling  Modules:  ENTINT  X 
C  Scheduled  by:  none  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  RESCHD 

c 

CXXXX  COPMON  BLOCKS 

CQM10N/SC0M 1/  A! 100) ,DO( 100) ,DDL! 100) ,DTN0W,I I ,MFA ,MSTOP ,NCLNR , 

♦  NCRDR  ,NPRNT  ,hNRUN ,  WSET ,  NT  APE ,  SS(  100)  ,SSL!  100)  ,TNEXT,TNOW,XX!  100) 
LOGICAL  LOGFLG 

COWON/DIMEN/  NUMLOC , NUMCPU , NUMCLS , NUMS I Z , NUMPRT , NUMGAT , LOGFLG 
COttiON/EVT COD/  I CLKEV ,  INTHEV ,  I ARVEV ,  I PEREV ,  I CPDEV ,  LATEVT ,  I RESEV , 

♦  ISTCEV 

C0MM0NA1ARC0M/  CPULTM ,  CPULTS ,  TRMLTM ,  TRMLTS ,  OPRW ,  OPRSTD  ,XLOGW , 


+  XLOGST 


C 

CXXXX  COMPUTER  NOT  AVAILABLE-SCHEDULE  LATER  ARRIVAL 
C 

XT I ME-RNORM ( CPULTM , CPULT S , 1) 

IF  (LOGFLG)  CALL  L0G<12,-i) 

CALL  SCHDL  <  LATEVT ,XT IME , A) 

RETURN 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


c  X 
C  Name:  RESORC  X 
C  Module  Number:  1.E.3  X 
C  Function:  Opens/closes  card  readers,  printers,  and  computers.  X 
C  If  computer  closes  then  calls  STPINT  to  take  inter-  X 
C  users  off.  X 
C  Attributes  Referenced:  I  COMP, I  GATE, I TYPE  X 
C  Global  (XX)  Variables  Referenced:  none  X 
C  Common  Blocks/Variables  Used:  DIMEN/NUMGAT .NUMPRT , LOGFLG  X 
C  OFFSET/I CPUOS , I GATOS , I PRTQS  X 
C  SCHEDL/ I CRGAT , I PRGAT  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  ALTER, CLOSX, LOG, OPEN, STPINT  X 
C  Calling  Modules:  EVENT  X 
C  Scheduled  by:  CALSCH  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  RESORC 

PARAMETER  <MAXGAT*4,N*XCPl>=6,MAXPRT=10) 

C 

camoN/scoMi/  Auee) ,dd<is0)  ,ddl<  100) ,dtnow,ii,mfa,mstop,nclnr, 

♦  NCRDR,NPRNT ,NNRUN,MfSET ,NTAPE,SS< 100) ,SSL( 100) ,TNEXT ,TNOW,XX( 100) 
LOGICAL  LOGFLG 

C0M10N/DIMEN/  NUMLOC  ,NIJMCPU ,NUMCLS  .NtJMSI  Z , NUMPRT  ,NUMGAT , LOGFLG 
COttlON/OFFSET/  I CPUOS , I HLDOS , I RTSTR , I TRMOS , I BAT ST , I GATOS , I PRTOS , 

♦  I PORTS 

C0M10N/SCHEDL/  SCHBATCMAXGAT ,7,2) ,SCHCPU(MAXCPU,7,2) , 

♦  I PR GAT (MAX GAT ,MAXPRT) , I CRGAT (MAX CPU, MAX GAT) 

EQUIVALENCE  ( ICOMP, IGATE,A<2) ) ,CITYPE,A<3>> 

C 

IF  (ICOMP  .GE.  10)  THEN 
C  XXXX  COMPUTER  CHANGE  XXXX 

XX< I COMP) -REAL ( I TYPE) 

IF  < I TYPE  .EQ.  0)  THEN 
NCOMP-ICOMP 
CALL  STPINT < ICOMP) 

C  XXXX  CLOSE  COMPUTER'S  CARD  READERS  XXXX 

DO  30  I-l.NUMGAT 

IF  (ICRGAT(NCOMP-ICPUOS,I)  .EQ.l)  CALL  CLOSXU  +  IGATOS) 
30  CONTINUE 

ELSE 

C  XXXX  OPEN  COMPUTERS  CARD  READERS  XXXX 

DO  73  1-1  ,NUMGAT 

IF  <ICRGATdCOMP-ICPUOS,I)  .EQ.l)  CALL  OPENdf IGATOS) 


73  CONTINUE 

ENDIF 

ELSE 

C  XXXX  BATCH  GATE  CHANGE  XXXX 

IFIITYPE  .EQ.  8)  T*€N 
CALL  CLOSX(IGATE) 

C  XXXX  CLOSE  THE  PRINTERS  XXXX 

DO  180  1=1  ,NUMPRT 

IF  CIPRGAT(IGATEtI)  .EQ.  1)  CALL  ALTER < IPRTOS+I ,-l> 
108  CONTINUE 

ELSE 

CALL  OPEN(IGATE) 

C  XXXX  OPEN  THE  PRINTERS  XXXX 

DO  280  I=lfNUMPRT 

IF  (IPRGATCIGATE, I)  .EQ.  1)  CALL  ALTER < IPRTOS+I ,+ 1) 
200  CONTINUE 

ENDIF 
ENDIF 

IF  (LOGFLG)  CALL  LOG<  18,-1) 

RETURN 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX3X 


C  X 
C  Name:  RTPRT  X 
C  Module  Number i  l.E.8.1  X 
C  Functions  Determines  print  time  and  printer  then  enters  into  X 
C  network .  X 
C  Attributes  Referenced:  APRTl , INTBAT , I DIAL , A JUMP  X 
C  Global  (XX)  Variables  Referenced:  none  X 
C  Common  Blocks/Variables  Used:  D I MEN/NUMPRT , LOGFLG  X 
C  ENTCOO/IPRTEN  X 
C  EVTCOD/INTHEV  X 
C  OFFSET/ I CPUOS  X 
C  PRTPRM/DUPRT , PCPRTM ,PCPRTS , PRTTAB , PRTSPD  X 
C  Cannon  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  ENTER, LOG, SCHDL  X 
C  Calling  Modules:  CPUDPT  X 
C  Scheduled  by:  none  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  RTPRT < I MACH, LOCAT) 

PARAMETER  <tWXCPl>»d,MAXLOC=li,MAXPRT»10) 

C 

CXXXX  COTtiON  BLOCKS 

C0M10N/SC0M1/  A(  101)  ,DD<  180)  ,DDL(100>  , DTNOW ,  1 1 , MFA ,MSTOP  ,NCLNR , 

+  NCRDRfNPRNT,NNRUN,NNSET,NTAPE,SS<  108)  ,SSL<  100)  , TNEXT , TNOW , XX ( 100) 
LOGICAL  LOGFLG 

COTtiON/DIMEN/  NUMLOC  ,NUMCPU  ,NUMCLS  ,NUMS  I Z ,  NUMPRT ,  NUMGAT ,  LOGFLG 
COW1GN/ENTCOD/  INTARV ,  I  BATCH  ,NRLSIN ,  I PRTEN 

COMION/EVTCOO/  I CLKEV ,  I NTHEV ,  I ARVEV ,  I PEREV ,  I CPDEV ,  LATEVT ,  I RESEV , 

♦  ISTCEV 

COftl ON/OFFSET/  I CPUOS , I HLDOS , I RTSTR , I TRMOS , I BAT ST , I GATOS , I PRTOS , 

♦  I PORTS 

COmON/PRTPRM/  PRTSPD  (MAXPRT)  ,  DUPRT ,  PRTTAB  (MAXCPU  ,MAXLOC  ,MAXPRT)  , 


1-31 


♦  PCPRTM,PCPRTS 

EQUIVALENCE  <APRTL,A<8)) ,<  INTBAT, A(?> ) ,<IDIAL,A( 11)> ,  (AJUMP ,A< 15) ) 
C 

C XXXX  ROUTE  TO  PRINTER 
RN=DRAND( I) 

A JUMP® 1 . 

IF  ((IDIAL  .EQ.  1)  .AND. ( INTBAT  .EQ.  1).<*©.(RN  .LE.  DUPRT) )  THEN 
AJUMP=AJUMP+REAL<NUMPRT> 

APRTL*(APRTLX 1008) /RNORM ( PCPRTM , PCPRTS , 1) *69 . 

ELSE 

IF  << INTBAT. EQ.l)  .»*JD.  (XX< IMACH+ICPUOS)  .GT.0.5)) 

♦  CALL  SCHDL(INTHEV,1.0,A> 

DO  50  1=1 ,NUMPRT- 1 

IF  (RN  .GE.  PRTTAB(IMACH,LOCAT,I))  A JUMP=AJUMP+ 1 . 

50  CONTINUE 

C  XXXX  DETERMINE  PRINTER  TIME  XXXX 

I I=NINT  (AJUMP) 

APRTL»( APRTLX 1000  ./PRTSPD(  ID)  *69. 

END  IF 

CALL  ENTER<  I PRTEN ,  A) 

C 

IF  (L06FLG)  CALL  LOG< 13,-1) 

RETURN 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


c  x 

C  Nam*:  SESOUR  X 
C  Module  Number:  1.C.6  X 
C  Function:  Decrements  CPU  states  when  interactive  session  over.  X 
C  Enters  into  network  release.  If  another  waiting  for  X 
C  port  then  schedules  arrival.  X 
C  Attributes  Referenced:  ILOCAT , I MACH, IDIAL, IORG,AJUMP  X 
C  Global  (XX)  Variables  Referenced:  IMPCLS  X 
C  Common  Blocks/Variables  Used:  CPSTAT /ITRMOL , ITRtWP , ITRMAC  X 
C  DIMEN/LOGFLG  X 
C  ENTCOO/NRLSIN  X 
C  EWTCOO/I STCEV  X 
C  OFFSET/ I PORTS  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  ENTER , LOG , RMOUE , SCHDL  X 
C  Cal  1 ing  Modules:  INTEND, STPINT  X 
C  Scheduled  by:  none  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  SESOVR 
PARAMETER  <hfcXCPl>6) 

DIMENSION  ATEMP( 100) 

C 

CXXXX  COMMON  BLOCKS 

COtfiQN/SCOM  1/  A< 108) ,DD( 100) ,CDL(100) ,DTN0W,II ,MFA,MSTOP,NCLNR, 

+  NCRDR ,NPRNT ,hNRUN  SET ,NTAPE , SS( 180) ,SSL( 100) ,TNEXT,TNON,XX( 100) 

COMMON/CPSTAT /  ITRMOL , I TRMWP , ITRMAC , I EXJOB , IMEM , I CPU , INOUT , IMPL , 

♦  CNUCPU(MAXCPU) 

LOGICAL  LOGFLG 


♦  PCPRTM,PCPRTS 

EQUIVALENCE  <APRTL,A(8>)  ,<INTBAT,A(9))  ,  UDIAL,A<  ID)  , (AJUMP, A< 15) ) 
C 

CXXXX  ROUTE  TO  PRINTER 
RN=DRAND< 1) 

A JUMP= 1 . 

IF  <<IDIAL  .EO.  1) .ANO.<INTBAT  .EQ.  1) .*ND.(RN  .LE.  DUPRT) >  THEN 
AJUMP=AJUHP+REAL(NUhPRT) 

APRTL=(APRTLX  1000)/RNORM(PCPRTM,PCPRTS,  1)  3(60 . 

ELSE 

IF  ((INTBAT.EQ.  1)  .«WD .  <XX<  IMACH+ 1 CPUOS)  .GT.0.5)) 

♦  CALL  SCHOL<INTHEV,1.0,A> 

DO  50  I=1,NUMPRT-1 

IF  <RN  .GE.  PRTTAB<IMACHfLOCAT,I)>  A JUMP=AJUMP+ 1 . 

50  CONTINUE 

C  XXXX  DETERMINE  PRINTER  TIME  XXXX 

I I=NINT (AJUMP) 

APRTL»(APRTLX 1080 ./PRTSPD< I I ) ) X40 . 

END  IF 

CALL  ENTER<IPRTEN,A) 

C 

IF  (LOGFLG)  CALL  LOG( 13,-1) 

RETURN 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


C  X 
C  Name:  SESOVR  X 
C  Module  Number :  1.C.6  X 
C  Function!  Decrement*  CPU  states  when  interactive  session  over.  X 
C  Enters  into  network  release.  If  another  waiting  for  X 
C  port  then  schedules  arrival.  X 
C  Attributes  Referenced:  ILOCAT,IMACH, IDIAL, IORG.AJUMP  X 
C  Global  (XX)  Variables  Referenced:  IWPCLS  X 
C  Cannon  Blacks/Variables  Used:  CPSTAT/ITRMOL , ITRfWP , ITRMAC  X 
C  D I MEN/LOG FLG  X 
C  ENTCOO/NRLSIN  X 
C  EVTCQD/ISTCEV  X 
C  OFFSET/ I PORTS  X 
C  Cannon  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  ENTER , LOG , RMOVE , SCHDL  X 
C  Calling  Modules:  INTH*),STPINT  X 
C  Scheduled  by:  none  X 
C  X 


CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

c 

SUBROUTINE  SESOVR 
PARAMETER  (MAXCPO*) 

DIMENSION  ATEMPU00) 

C 

CXXXX  COMICN  BLOCKS 

COtfiON/SCOM 1/  A< 100) ,DD( 100) ,CDL< 100) ,DTN0W,II ,MFA,MSTOP,NCLNR, 

♦  NCRDR , NPRNT ,NNR(JN  ,NNSET ,NTAPE , SS< 100) ,SSL< 100) ,TNEXT,TNON,XX< 100) 
COTtlON/CPSTAT/  ITRMOL, ITRMMP, ITRMAC, I EXJOB.IMEM, ICPU, INOUT, IMPL, 

♦  CNVCPU(MAXCPU) 

LOGICAL  LOGFLG 


COWON/D  I  MEN/  NUMLOC  ,NUMCPU ,  NUMCL  S ,  NUMS I Z ,  NUMPRT ,  NUNGAT ,  LOGFLG 
COHON/ENTCOD/  INTARV ,  I  BATCH , NRLSIN ,  I PRTEN 

C0M1QN/EVTC0D/  I CLKEV ,  I NTHEV ,  I ARVEV ,  I PEREV ,  I CPDEV ,  LATEVT ,  I RESEV 

♦  ISTCEV 

CGMMON/OFFSET /  I CPUOS , I HLDOS , I RTSTR , I TRMOS , I BATST , I GATOS , I PRTOS 

♦  I PORTS 

EQU1UALENCE  ( IL0CAT,A(2) ) , (IMACH, A<3>> , <ALOCAT,A<7> ) , 

♦  ( IDIAL,A( 11)> ,( IORG,A( 12)> 

EQUIVALENCE  < IWPCLS, XX<4) ) 

C 

CXXXX  DECREMENT  CPU  STATES 
INDEX9 IMACHX 10-10 

SS< INDEX* ITRMOL) »SS( INDEX* ITRMOL) - 1 . 

IF  (IORG  .EQ.  IWPCLS)  SS<  INDEX+ITRW«IP)9SS<  INDEX*  ITRMWP) -1 . 

SS< INDEX* ITRMAC) =SS( INDEX* ITRMAC) - 1 . 

XX < I PORTS* I MACH) =XX< I PORTS* IMACH) ♦ 1 . 

C 

CXXXX  IS  A  USER  WAITING  FOR  A  PORT? 

IF  <NNQ< I PORTS* IMACH)  .GT.  6)  THEN 
C  XXXX  YES  -  SCHEDULE  TO  LOGON  XXXX 

CALL  RMOVE<  1,1  PORTS*  IMACH ,ATEMP> 

CALL  SCHDL< ISTCEV, 0.1,ATEMP) 

END  IF 


C 

CXXXX  RELEASE  RESOURCE 

IF  ( IDIAL  .EQ.  1)  THEN 
ALOCAT»0.0 
ELSE 

ALOCAT=REAL ( I LOCAT) 
ENDIF 

CALL  ENTER<NRLSIN,A) 

C 


IF  < LOGFLG)  CALL  L0G(7, INDEX) 

RETURN 

END  . 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


c 

C  Nam* I  SETCPU 
C  Module  Number i  1.E.4 

C  Function:  Sets  the  CPU's  states  and  session  time  for  interactive 
C  arrival . 

C  Attributes  Referenced:  IMACH, I CLASS, I SIZE, I JOBS ,AMEAN 
C  Global  (XX)  Variables  Referenced:  IWPCLS 
C  Cannon  Blocks/Variables  Used:  CPSTAT/ ITRMOL, ITRMAC, ITRMWP 
C  DIMEN/LOGFLG 
C  EVTCOD/INTHEV 
C  FACTOR/D I STRB 

C  OFFSET/ I PORTS 

C  Common  Blocks/Variables  Changed:  none 
C  Modules  Called:  LOG.SCHDL 
C  Calling  Modules:  EVENT, LOGON 
C  Scheduled  by:  SESOVR 
C 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 


X)K)KIKIK)K)K)KlK)NIint(»IIIXIKIK 


SUBROUTINE  SETCPU 

PARAMETER  <MAXCPI>6  ,MAXCLS=6  ,MAXSI  2=6) 

C 

CXXXX  COhtiON  BLOCKS 

COMION/SCOMl/  A<100) ,DD< 100) ,DDL<100) ,DTNOW,I I ,MFA,MSTQP,NCLNR, 

♦  NCRDR,NPRNT,hNRUN,hNSET,NTAPE,SS<  100)  ,SSL<  100)  ,TNEXT ,TNOW,XX(  100) 
COWON/CPSTAT/  ITRMOL ,  ITRf-WP ,  I TRMAC ,  I  EX  JOB ,  IMEM ,  I  CPU ,  INOUT ,  IMPL , 

♦  CNVCPU(MAXCPU) 

LOGICAL  LOGFLG 

COMi ON/DIMEN/  NUMLOC , NUMCPU , NUHCLS , NlfiS I Z , NltiPRT , NUMGAT , LOGFLG 
COtMON/EVTCOD/  I CLKEV , I NTHEV ,  I ARVEV ,  I PEREV ,  I CPDEV ,  LATEVT , I RESEV , 

♦  ISTCEV 

COttlON/FACTOR/  DISTRB(MAXCLS,t¥»XSIZ,6,2> 

COMfON/OFFSET/  ICPUOS , IHLDOS , I RTSTR , ITRMOS , I BATST , I GATOS , I PRTOS , 

♦  I PORTS 

EQUIVALENCE  UMACH,A(3)) ,<ICLASS,A(4)) ,<ISIZE,A<5>) , 

♦  (IJOBS,A(  10))  ,  (AMEAN,A(  13)  ) 

EQUIVALENCE  i IWPCLS,XX<4>) 

C 

CXXXX  DECREMENT  PORT  AVAILABLE 

XX< I PORTS* I MACH) *XX< I PORTS* I MACH) - 1 . 

C 

CXXXX  UPDATE  CPU  STATES 
INDEXSIMACHX 10- 10 

SS<  INDEX*  ITRMOL)  *SS<  INDEX*  ITRMOL)  ♦  1 . 

SS( INDEX* ITRMAC)«SS< INDEX* ITRMAC) *  1 . 

IF  ( I  CLASS  .EQ.  IWPCLS)  SSI  INDEX*  ITRMWP)  =SS<  INDEX* ITRMWP)  *  1 . 

C 

CXXXX  GET  NUMBER  OF  JOBS  THIS  SESSION 
XME*W=DI  STRB<  I  CLASS ,  I  SI  2E ,  4 , 1) 

STODI STRBI I  CLASS , I SI ZE , 4 , 2) 

I  JOBS=NINT(RNORM<XMEAN,STD ,  1)  > 

C 

CXXXX  GET  JOBS  SUBMITTAL  DISTRIBUTION 
AMEAN^DISTRBI 1 CLASS, ISIZE, 1,1) 

C 

CXXXX  ENTER  TO  INTERACTIVE  HANDLER 
IF  (LOGFLG)  CALL  LOGC20, INDEX) 

CALL  SCHDL(INTHEV,EXPON(AMEAN, 1)  ,A) 

RETURN 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


C  X 
C  Name}  SETINT  X 
C  Modul e  Numbert  1.C.7  X 
C  Function}  Sots  interactive  jobs  print  and  'mode'  char ac ter istics.X 
C  Attributes  Referenced}  IMACH,ICLASS,INTBAT,IJOBS  X 
C  Global  (XX)  Variables  Referenced}  IMPCLS  X 
C  Common  Blocks/Variables  Used}  DIMEN/LOGFLG  X 
C  INTPRB/ONEJOB , WPPROB , BAT I NT  X 
C  Common  Blocks/Variables  Changed}  none  X 
C  Modules  Called}  LOG  X 
C  Calling  Modules!  INDMO  X 
C  Scheduled  by}  none  X 
C  X 


CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

c 

SUBROUTINE  SET  I NT 
C 

PARAMETER  (MAXCPU=6,rt*XCLS=4> 

CXXXX  COMMON  BLOCKS 

COMION/SCOMl/  A( 106) ,DD(100) ,DDL<100) , DTNOW , 1 1 ,MFA,MSTOP,NCLNR, 

♦  NCRDR,NPRNT,NNRUN,NNSET,NTAPE,SS( 100) ,SSL< 100) ,TNEXT ,TNOW,XX( 100) 
LOGICAL  LOGFLG 

COM1  ON/DIMEN/  NUMLOC ,NUMCPU ,NUMCLS ,  NUMSI Z ,NUMPRT , NUMGAT , LOGFLG 
COMMON/ 1 NT PR B/  ONEJOB,WPPROB(MAXCLS) , BAT I NT  < MAXCPU , MAXCL S) 
EQUIVALENCE  ( IMACH,A(3) ) , ( ICLASS,A(4) ) , ( INTBAT,A(?) ) , ( I JOBS ,A( 10) ) 
EQUIVALENCE  ( IWPCLS,XX(4) ) 

C 

CXXXX  SHOULD  WE  CHANGE  TO  WORD  PROCESSING  (PRINT) 

IF  ( I CLASS  .NE.  IWPCLS)  THEN 
KN=DRAND( 1) 

IF  (I JOBS  .LE.  0)  THEN 

IF  CRN  .LE.  ONEJOB)  ICLASS=IWPCLS 

ELSE 

IF  (RN  .LE.  WPPROB< I CLASS) )  I CLASS= IWPCLS 
END  IF 
ENDIF 
C 

CXXXX  IS  THE  USER  SUBMITTING  THIS  JOB  AS  WAIT  OR  BATCH  MODE 
RN=DRAND( 1) 

IF  (RN  .LE.  BATINT(IMACH,ICLASS))  THEN 
INTBAT-0 

ELSE 

INTBAT-1 

ENDIF 

IF  (LOGFLG)  CALL  LOG< 14,-1) 

RETURN 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx?xxxxxxxxxxxxxxxxx 


c  X 
C  Nimi  STPINT  X 
C  Module  Number:  l.E.3.1  X 
C  Function:  Celled  when  computer  goes  down  to  release  interactive  X 
C  users.  X 
C  Attributes  Referenced:  I MACH, I CODE  X 
C  Global  (XX)  Variables  Referenced:  none  X 
C  Cannon  Blocks/Variables  Used:  DIMEN/L0GFL6  X 
C  EVTCOD/INTHEV  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  COPY,RMOVE,SESOVR  X 
C  Cal  I ing  Modules:  RESORC  X 
C  Scheduled  by:  none  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  STPINT(  IDO-W) 

C 

CXXXX  com  ON  BLOCKS 

COmON/SCOMl/  A(  100)  , DOC  100)  ,DDL(100) , DTNOW ,  1 1  ,MFA ,MSTOP ,NCLNR , 


♦  NCRDR ,NPRNT ,NNRUN ,NNSET , NTT APE , S3( 100)  ,SSL(180)  ,TNEXT,TNOW,XX(  189) 
LOGICAL  LOGFLG 

COM1  ON/DIHEN/  NUMLOC  ,NUMCPU  ,NUPCLS  ,NUMSIZ  ,NUMPRT  .NUMGAT , LOGFLG 
COMMON/EVTCOD/  I CLKEV , INTHEV , IriRVEV , I PEREV , I CPDEV , LATEVT , IRESEV, 

♦  ISTCEV 

COW ON/OFFSET/  I CPUOS , I HLDOS , I RTSTR , ITRHOS , I BAT ST , I GATOS , I PRTOS , 

+  I PORTS 

EQUIVALENCE  <IMACH,A(3)> ,(ICODE,A( 14)) 

C 

CXXXX  COMPUTER  IS  DOW  -  BLOW  THOSE  USERS  OFF 
IEND-WQ(NCLNR) 

IF  (IEND  .GT.  8)  THEN 
I SPOT- 1 

10  CALL  COPY(ISPOT,NCLNR,A) 

IF  < < IMACH . EQ . I DOWN) .AND  ' I CODE. EQ. INTHEV))  THEN 
CALL  RMOVE< ISPOT ,NCL.  ?,A) 

CALL  SESOVR 
I END- I END- 1 

ELSE 

ISPOT-ISPOT+1 
END  IF 

IF  (ISPOT  .LE.  IEND)  GO  TO  18 
END  IF 
C 

CXXXX  REMOVE  ANY  USERS  NA1TING  FOR  A  PORT 
I 0=1 PORTS* I DOWN 
IEND-WQ(IQ) 

IF  (IEND  .GT.  8)  THEN 
ISPOT- 1 

20  CALL  COPY( ISPOTjNCLNRjA) 

IF  ( IMACH.  EQ.  I  DOW)  THEN 

CALL  RMOVE  ( I  SPOT  fNCLNR ,  A) 

CALL  SESOVR 
IEND=IEND-1 

ELSE 

I SPOT- I SPOT* 1 
ENDIF 

IF  (ISPOT  .LE.  IEND)  GO  TO  28 
ENDIF 

IF  (LOGFLG)  CALL  L0G(2!t-l> 

RETURN 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


c  X 
C  Name i  UPDARV  X 
C  Module  Number i  1.C.8  X 
C  Function i  Updates  the  arrival  rates  for  all  locations.  X 
C  Attributes  Referenced i  none  X 
C  Global  (XX)  Variables  Referenced!  none  X 
C  Common  Blocks/Variables  Used!  DIMEN/LOGFLG  X 
C  INUALS/ARRATE  X 
C  UNITS/ 1  STUD 1 1 ADMN , I OTHR , I BTCH  X 
C  Common  Blocks/Variables  Changed!  INVALS/ARRATE  X 
C  Modules  Called!  RDERR  X 
C  Calling  Modules!  DYPROC.INTLC  X 


C  Scheduled  byi  none  X 

C  X 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
c 

SUBROUTINE  UPDARV 

PARAMETER  (MAXLOC=19  ,MAXCPU=4,f**XCLS=4,MAXSIZ=4> 

CXXXX  COhfiON  BLOCKS 

COMION/SCOMl/  A(  108),, DD(  108)  ,DDL(180)  , DTNOW ,  1 1  ,MFA ,MSTOP ,NCLNR , 

♦  NCROR ,NPRNT ,NNRUN ,hNSET ,NTAPE , SS<  108)  ,SSL(  108)  ,TNEXT ,TNOW ,XX(  100) 
LOGICAL  LOGFLG 

COWON/DIMEN/  NUMLOC  ,NUMCPU , NUMCLS , NUMS I Z  , NUMPRT , NUMGAT ,  LOGFLG 
COTtiON/IhWALS/  ARRATE(MAXL0C,24) ,DIALUP(MAXCPU,24) , 

+  FRTABLCMAXLOC , MAX CPU ,MAXCLS ,MAXSI Z) 

COMMON/UNITS/  I FACT , I STUD , I ADW , I OTHR , I BTCH , I CONST 
C 

CXXXX  UOATE  ARRIVAL  RATES 
IUNIT=ISTUD 
00  100  1=1,3 

READ  ( I  STUD ,  ERR=500)  (ARRATEd  ,J)  ,  J=  1 , 24) 

100  CONTINUE 
IUNIT-IADMN 
DO  200  1=4,4 

READ(IADhN,ERR=508)  (ARRATEd  ,  J)  ,  J=l,24) 

200  CONTINUE 
IUNIT=IOTHR 
DO  300  1=7,7 

READ(IOTHR,ERR=500>  (ARRATEd  , J)  ,  J=l,24) 

300  CONTINUE 

I UNIT* I BTCH 
DO  400  1=8,10 

READ(IBTCH,ERR=300>  (ARRATE( I , J) ,  J=l,24) 

400  CONTINUE 

IF  (LOGFLG)  THEN 
WRITE(NPRNT ,700) 

DO  4S0  1=1,10 

WRITE(NPRNT,710)  I ,(ARRATE(I ,J) ,  J=l,12) 

WRITE(NPRNT , 728)  (ARRATEd, J),  J=13,24) 

430  CONTINUE 
ENDIF 
RETURN 

500  CALL  RDERRdUNIT) 

700  FORMAT( '0  ARRIVAL  RATES') 

710  FORMAT ( '  ' ,15, 12F8.2) 

720  FORMAT ( '  ' ,5X, 12F8.2) 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


C  X 
C  Name i  UPDFRQ  X 
C  Module  Number i  1.C.9  X 
C  Function!  Updates  the  cumulative  -frequency  distributions.  X 
C  Attributes  Referenced!  none  X 
C  Global  (XX)  Variables  Referenced!  none  X 
C  Common  Blocks/Variables  Used!  DIMEN/NUMCLS,NUMCPU,NUMS!Z  X 
C  INVALS/FRTABL  X 
C  UN ITS/ I STUD, I AOMN, I OTHR, I BTCH  X 


C  Common  B1 ocks/Variabl es  Changed:  IhWALS/FRTABL  X 

C  Modules  Called:  ROERR 
C  Calling  Modules:  INTLC,WKPROC 
C  Scheduled  by:  none 
C 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  UPDFRQ 

PARAMETER  (fttXLOC-  18  ,I^XCPU=4  ,  httXCLS-6 , httXSI  2-6) 

CXXXX  C0W10N  BLOCKS 
LOGICAL  LOGFLG 

C0M10N/DIMEN/  NUMLOC ,NUMCPU , NUMCLS .NUMSIZ .NIIMPRT .NUMGAT , LOGFLG 
C0M10N/INUALS/  ARFtoTE(MAXL0C,24>  ,DIALUP(mXCPU,24)  , 

♦  FRTABL<MAXLOC ,MAXCPU .MAXCLS ,MAXSIZ) 

COMION/UN I TS/  I  FACT ,  I  STUD ,  I  ADttf ,  I OTHR ,  I BTCH ,  I C  ONST 

C 

CXXXX  UPDATE  FREQUENCY  TABLES 
I UN I T= I STUD 
DO  188  1*1,3 

READ( ISTUD,ERR=500)  (  (  ( FRTABL ( I , J , K , L) ,  L-l .NUMSIZ) , 

♦  K=1,NUMCLS),  J=1  ,NUhCPU+l) 

188  CONTINUE 

IUNIT-IADMN 
DO  288  1*4,6 

READ(  IADhN.ERR-500)  <  < (FRTABL(  I ,  J,K,L)  ,  L-l .NUMSIZ)  , 

♦  K-l, NUMCLS) ,  J= 1 ,NUMCPU+ 1) 

288  CONTINUE 

IUNIT=IOTHR 
DO  388  1-7,7 

READ( I OTHR , ERR-500)  (( (FRTABL ( I , J,K,L) ,  L-l .NUMSIZ), 

♦  K= 1 .NUMCLS) ,  J= 1 .NUMCPU+ 1) 

388  CONTINUE 

IUNIT-IBTCH 
DO  488  1-8,18 

READUBTCH, ERR-508)  <  ((FRTABL  ( I , J,K,L)  ,  L-l, NUMSIZ), 

♦  K-l, NUMCLS),  J—  1  ,NUMCPLH  1) 

488  CONTINUE 

C 

RETURN 

508  CALL  RDERR( I  UNIT) 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

c  Name:  MKPROC 
C  Module  Number:  l.E.1.3 

C  Function:  Called  at  ?nd  of  week  to  update  arrival  rates  and 
C  -frequency  distributions. 

C  Attributes  Re-ferenced:  none 
C  Global  (XX)  Variables  Re-ferenced:  none 
C  Common  Blocks/Variables  Used:  none 
C  Common  Blocks/Variables  Changed:  none 
C  Modules  Called:  UPDARV, UPDFRQ 
C  Cal  1 ing  Modules:  CLOCK 
C  Scheduled  by:  none 


»C»C>K»<JK»<»<»C»CJK»C»C>K  »K  >K  »K  *<  >K 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

SUBROUTINE  WKPROC 
C 

CXXXX  COMION  BLOCKS 

C0MM0N/SC0M1/  A< 100) ,DD( 180) ,DDL<180> ,DTNOW, 1 1 ,MFA,MSTOP,NCLNR, 

♦  NCROR ,NPRNT jf'NRUN ,  MfSET ,NTAPE , SS<  100)  ,SSL(  100)  ,TNEXT,TNOW,XX<  100) 
C 

CXXXX  UPDATE  FREQUENCY  TABLE 
CALL  UPOFRQ 
CALL  UPDARV 
CALL  CALSCH 
RETURN 
END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


c  X 
C  Name:  ARVTIM  X 
C  Module  Number:  l.F.l  X 
C  Function:  Returns  next  arrival  time  using  RATE.  X 
C  Attributes  Referenced:  none  X 
C  Global  (XX)  Variables  Referenced:  none  X 
C  Common  Blocks/Variables  Used:  none  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  none  X 
C  Calling  Modules:  ARVL.INTLC  X 
C  Scheduled  by:  none  X 
C  X 


CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

C 

FUNCTION  ARVTIM(RATE) 

C 

CXXXX  GIVEN  A  ARRIVAL  RATE  -  WHEN  IS  THEN  NEXT  ARRIVAL 
XMEAN=60 ./RAT EX 60 . 

ARVTIf+=EXPON(XtCANl  1) 

IF  (ARVTIM  .LE.  0.0)  ARVTlhN0.01 

RETURN 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


C  X 
C  Name:  CPUSEC  X 
C  Module  Number:  1.F.2  X 
C  Function:  Given  a  class  and  size,  returns  CPU  seconds  required.  X 
C  Attributes  Referenced:  none  X 
C  Global  (XX)  Variables  Referenced:  none  X 
C  Common  Blocks/Variables  Used:  FACTOR/DISTRB  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  none  X 
C  Calling  Modules:  CPUARV  X 
C  Scheduled  by:  none  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

FUNCTION  CPUSECdCLASS,  ISIZE) 

PARAMETER  (MAXCLS-6.MAXSIZ-6) 

C 


CXXXX  COrtiON  BLOCKS 

C0M10N/FACT0R/  DISTRB(MAXCLS,MAXSIZ ,6,2) 

C 

CXXXX  WHAT  IS  THE  CPU  TIME  REQUIRED 
XMEAN=DISTRB<ICLASS, ISIZE,3, 1) 

CPUSEC=EXPON<XMEAN , 1) 

RETURN 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


c  X 

C  Name:  FIGRUN  X 
C  Module  Number:  1.F.3  X 
C  Function:  Returns  a  job's  run  time  as  a  function  of  computer  X 
C  state  and  the  job  characteristics.  X 
C  XXXXXX  not  implemented  XXXXX  X 
C  Attributes  Referenced:  none  x 
C  Global  OOO  Variables  Referenced:  none  X 
C  Common  B1  ocks/Var  iad  es  Used:  none  X 
C  Common  Blocks/Variabl es  Changed:  none  X 
C  Modules  Called:  none  X 
C  Calling  Modules:  CPUARV.CPUDPT  X 
C  Scheduled  by:  none  X 
C 


CXXXXXXXX*  rXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

c 

FUNCTION  FI6RUN( IMACH, ICLASS,CPUSEC,MEM) 

C 

CXXXX  FIGURE  RUN  TIME  AS  FUNCTION  OF  CLASS, SI2E  AND  CPU  STATES 
FiGRu^ieea.e 
RETURN 
END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 
c 

C  Name:  MEMSI2 
C  Module  Number:  1.F.4 

C  Function:  Returns  memory  size  as  a  function  of  class  and  size. 

C  Attributes  Referenced:  none 
C  Global  <XX)  Variables  Referenced:  none 
C  Common  B1 ocks/Variabl es  Used:  FACTOR/DISTRB 
C  Common  Blocks/Variabl es  Cianged:  none 
C  Modules  Called:  none 
C  Cal  1 ing  Modules:  CPUARV 
C  Scheduled  by:  none 
C 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 

c 

FUNCTION  MEMSI Z ( I CLASS , I  SI ZE) 

REAL  MEMSIZ 

PARAMETER  <MAXCLS«6,MAXSIZ-6> 

C 

CXXXX  COMMON  BLOCKS 

COWION/FACTOR/  DISTRB<NWCLS,1WXSIZ,6,2> 

C 

CXXXX  WWVT  IS  THE  MEMORY  REQUIRED 

XMEAN-DISTRfl< I CLASS, ISI2E.5, 1) 


STIM)  I  STRB<  I  CLASS ,  I S I ZE ,  5 , 2) 

MEMSI  Z=RNORM(XMEAN ,  STD ,  1) 

IF  (HEMSI2  .LE.  0.0)  MEHSIZ-100. 

RETURN 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


C  X 
C  Name:  PRTLIN  X 
C  Modu 1 e  Number :  1 . F . 5  X 
C  Function:  Returns  number  of  print  lines  as  a  -function  o-f  class  X 
C  and  size.  X 
C  Attributes  Referenced:  none  X 
C  Global  (XX)  Variables  Referenced:  none  X 
C  Common  Bl ocks/Variabl es  Used:  FACTOR/DI STRB  X 
C  Common  Bl ocks/Variabl es  Changed:  none  X 
C  Modules  Called:  none  X 
C  Calling  Modules:  CPUDPT  X 
C  Scheduled  by:  none  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

FUNCTION  PRTLIN<ICLASSfISIZE> 

PARAMETER  (fttXCLS=<S  ,MAXSIZ=*<4) 

C 

CXXXX  com  ON  BLOCKS 

COmON/FACTOR/  DISTRBOttXCLS.MAXSIZ ,6,2) 

c 

CXXXX  HOM  MhNY  K  PRINT  LINES  THIS  JOB 
XMEAN=DISTRB< ICLASS, ISIZE.2, 1) 

ST[X=DISTRB(  ICLASS,  ISIZE,2|2) 

PRTLIN=RNOfiM<XMEAN,S"D,  1) 

RETURN 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


c  X 
c  Name:  USERF  X 
C  Module  Number:  1.F.6  X 
C  Function:  Returns  log  on  time  or  batch  submit  time.  X 
C  Attributes  Referenced:  none  X 
C  Global  (XX)  Variables  Referenced:  none  X 
C  Common  Blocks/Variables  Used:  VARCOM/XLOGW ,XLOGST , OPRMN , OPRSTD  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  none  X 
C  Calling  Modules:  NETWORK  X 
C  Scheduled  by:  none  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

FUNCTION  USERF (I FN) 

c 

CXXXX  COT+ION  BLOCKS 

COTfiON/SCOMl/  AC100) ,DD( 100) ,DDL<108) ,DTN0W, 1 1 ,MFA,MSTOP,NCLNR, 

♦  NCRDR ,NPRNT,hMRUN ,NNSET ,  NT  APE , SS( 108) ,SSL< 188) ,TNEXT,TNOW,XX< 188) 
C0M10N/VARC0M/  CPULTM , CPULTS  ,TRMLTM , TRMLTS ,  OPRW ,  OPRSTD  ,XL0QMN , 

♦  XLOGST 


60  TO  < 10,20)  IFN 
CALL  LOGERR(l) 

USERF=10 .0 
RETURN 

CXXXX  LOG  ON  TIME 

10  USERF=RNORM(XLOGMN,XLOGST, 1) 

RETURN 

CXXXX  OPERATOR  BATCH  SU8MIT  TIME 
20  USERF=RNORM(OPRMN,OPRSTD,  1> 

RETURN 

END 

CXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX 


C  X 
C  Naira:  IttlTPO  X 
C  Module  Number:  1.F.7  X 
C  Function:  Determines  if  interactive  arrival  will  wait  -for  a  port.X 
C  If  won't  wait  then  reschedules  arrival.  X 
C  Attributes  Referenced:  ILOCAT,IMACH  X 
C  Global  000  Variables  Referenced:  none  X 
C  Common  Blocks/Variables  Used:  DIMEN/LOGFLG  X 
C  EVTCOO/LATEVT  X 
C  OFFSET/I PORTS  X 
C  NAITCM/PORTWT,MAITMN,WAITST  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  ~al led:  LOG , SCHDL  X 
C  Calling  Modules:  LOGON  X 
C  Scheduled  by:  none  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

FUNCTION  MAITPO(DUMIY) 

PARAMETER  (MAXLOO10  ,WKHAT=5) 

C 

CXXXX  COhfiON  BLOCKS 

COMiON/SCOM 1/  A( 100) ,DO<100> ,DDL(100> ,DTNOW, I 1 ,MFA,MSTOP,NCLNR, 

♦  NCRDR,NPRNT,NNRUN,hf4SET ,NTAPE,SS(  100)  ,SSL(  100)  ,TNEXT ,TNOW ,XX(  100) 
LOGICAL  LOGFLG 

COMMON/DIMEN/  NUMLOC , NUMCPU , NUMCL S , NUMS I Z , NIMPRT , NUMGAT , LOGFLG 
COttlON/EVT COD/  ICLKEV, INTHEV,IARVEV,IPEREV,ICPDEV,LATEVT,IRESEV, 

♦  ISTCEV 

COWON/OFFSET/  I CPUOS ,  I HLDOS ,  I RTSTR ,  ITRMOS ,  I  BAT  ST ,  I  GATOS ,  I PRTOS , 

♦  I  PORTS 

COTfiON/NAITCM/  TRMWAT (MAXLOC ,MA)MAT)  ,^ITT^I,WAITST,PORTWT(tViXWAT) 
EQUIVALENCE  ( IL0CAT,A(2>) , < IMACH,A<3) ) 

C 

CXXXX  MILL  THE  USER  I^IT  FOR  A  PORT? 

RfM)RAND(  1) 

I  I«NNC(IPORTS+  IhWCH)  «■  1 
IF  (II  .GT.  MAXWAT)  II=tV«MAT 
IF  <RN  .LE.  PORTWT(II))  THEN 
C  XXXX  MILL  MAIT  XXXX 

NAITPO-1.0 

IF  (LOGFLG)  CALL  LOG( 22,-1) 

ELSE 


C  XXXX  WON'T  mn  -SCHEDULE  later  arrival  xxxx 

NAITPO=0 .0 

XTIME=RNORM(WAITW,WAITST,  1) 

CALL  SCHDL ( LATEVT  ,XT  IME ,  A) 

IF  <LOGFLG)  CALL  LOG( 23,-1) 

END  IF 
C 

RETURN 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


C  X 
C  Name:  NAITTR  X 
C  Module  Number:  1.F.8  X 
C  Function:  Determines  i-f  interactive  arrival  will  wait  -for  a  X 
C  terminal.  I-f  won't  wait  then  reschedules  arrival.  X 
C  Attributes  Re-ferenced:  ILOCAT  X 
C  Global  (XX)  Variables  Referenced:  none  X 
C  Common  Blocks/Variables  Used:  DIMEN/LOGFLG  X 
C  EVT  COD/LATEVT  X 
C  OFFSET/ITRMOS  X 
C  VARCOM/TRMLTM ,TRMLTS  X 
C  WAITCM/TRtMAT  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  LOG.SHCDL  X 
C  Calling  Modules:  ENTINT  X 
C  Scheduled  by:  none  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

FUNCTION  WAITTR(DUMIY) 

PARAMETER  (MAXLOO 10  ,MAXWAT=5) 

C 

CXXXX  COttiON  BLOCKS 

COWON/SCOM1/  A<  100)  ,DO<  108)  ,DDL(  100)  ,DTN0W,II  ,MFA,MSTOP,NCLNR, 

♦  NCRDR ,NPRNT ,hNRUN ,NNSET ,NTAPE , SS(  100)  ,SSL<  100)  ,TNEXT ,TN0W,XX(  10O) 
LOGICAL  L06FLG 

CdMMON/DIMEN/  NUMLOC ,NUMCPU ,NUMCLS .NUMSIZ ,NUMPRT ,NUMGAT ,LOGFLG 
COH1QN/EVTCOD/  I CLKEV , INTHEV , I ARVEV , I PEREV , I CPDEV , LATEVT , I RESEV , 

♦  ISTCEV 

C0M10N/0FFSET /  I CPUOS , I HLDOS , I RTSTR , I TRMOS , I BAT ST , I  GATOS , I PRTOS , 

♦  I PORTS 

COMMGN/VARCOM/  CPULTM , CPULTS ,TRMLTM .TRMLTS , OPRtW , OPRSTD ,XLOGW , 

♦  XLQGST 

CQW1CN/WAITOV  TRM«iAT(MAXLOC,MAXWAT)  ,MAITW,WAITST,PORTl«ff  (MAXWAT) 
EQUIVALENCE  ( ILOCAT, A(2)> 

C 

CXXXX  WILL  THE  USER  WAIT  FOR  A  TERMINAL? 

RN-DRAND(l) 

I  I^NQ(  I LOCAT*  I  TRMOS)  ♦  1 
IF  (II  .GT.  MAXWAT)  II-MAXJWT 
IF  (RN  .LE.  TRH>IAT(  ILOCAT,  ID)  THEN 
C  XXXX  MILL  WAIT  XXXX 

HAITTR* 1.0 

IF  (LOGFLG)  CALL  L0G( 13,-1) 


ELSE 


j 

J 

l 

I 

l 

i 

i 

f. 

i 


© 


C  XXXX  WON'T  WAIT  -SCHEDULE  LATER  ARRIVAL  XXXX 

WAITTR=0 .8 

XTIME=RNORM(TRMLTM,TRMLTS, 1) 

CALL  SCHDLCLATEVT ,XTIME ,A) 

IF  < LOGFLG)  CALL  LOG! 16,-1) 

END  IF 
C 

RETURN 

END 

cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 


C  X 
C  Name:  XIOSEC  X 
C  Module  Number:  1.F.9  X 
C  Function:  Returns  I/O  seconds  required  as  a  -function  of  class  X 
C  and  size.  X 
C  Attributes  Referenced:  none  X 
C  Global  (XX)  Variables  Referenced:  none  X 
C  Common  Blocks/Variables  Used:  FACTOR/DI STRB  X 
C  Common  Blocks/Variables  Changed:  none  X 
C  Modules  Called:  none  X 
C  Calling  Modules:  CPUARV  X 
C  Scheduled  by:  none  X 
C  X 


cxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 

c 

FUNCTION  XIOSEC (I CLASS, I SIZE) 

PARAMETER  (MAXCLS=6,MAXSIZ»<S> 

C 

CXXXX  COfttON  BLOCKS 

COMMON/FACTOR/  DISTRB(I*»CLS,MAXSIZ  ,6 ,2) 

C 

CXXXX  WHAT  IS  THE  I/O  SECONDS  REQUIRED 
XMEAN=DISTRB(  I  CLASS,  ISIZE,6, 1) 

STIM)  I  STRB<  I  CLASS ,  I S I Z E ,  6 , 2) 

XIOSEORNORM(XMEAN,STD,  !> 

IF  (XIOSEC  .LT.  18.)  XIOSEOI0. 

RETURN 

END 
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